为什么我在后台添加或删减产品的时候出错,就是不能用啊。
我的ASP源码为:<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="../include/checkuser.asp"-->
<!--#include file="../include/upload.asp"-->
<!--#include file="../include/db_conn.asp"-->
<%
function UpdateStr(str) '转化字符串
'str = Replace(str,"'","’")
'str = Replace(str,chr(34),"”")
'str = replace(str,"<","<")
'str = replace(str,">",">")
'str = replace(str,chr(13),"<br>")
UpdateStr = str
end function
dim upload,file,sfilename,bfilename,formName,sPath,bPath,iCount
set upload=new upload_5xSoft ''建立上传对象
sPath="../Prod_Photo/s/"'缩略图路径
bPath="../Prod_Photo/b/"'产品图路径
edit_type=upload.form("edit_action") '编辑类型
type_id=upload.form("type_id")'产品二级分类ID
current_ver=upload.form("current_ver") '当前的版本号
is_top=upload.form("is_top")
is_index=upload.form("is_index")
if is_index="" then is_index="0"
if is_top="" then is_top="0"
if is_comm="" then is_comm="0"
%>
<%
if edit_type="add_new" then '当添加新产品时
sqlstr="insert into t_product (type_id,me_ver,is_index,is_top,is_comm,is_hot,hot_txt) values("
sqlstr=sqlstr & type_id & ",'" & current_ver & "','" & is_index & "','" & is_top & "','" & is_comm & "','"
sqlstr=sqlstr & is_hot & "','" & hot_txt & "')"
conn.execute sqlstr
set rs = conn.Execute("SELECT top 1 productid FROM t_product ORDER BY productid DESC")
if not rs.eof then
id = rs("productid")
else
id = 1
end if
rs.close
'上传图片
'****************************************************************************************
set file=upload.file("small_photo") '上传缩缩图
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
sfilename=current_ver & "_s_" & catalogid & "_" & id & right(file.FileName,4)
file.SaveAs Server.mappath(sPath&sfilename) ''保存文件
end if
set file=nothing
set file=upload.file("big_photo") '上传产品图片
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=current_ver & "_b_" & catalogid & "_" & id & right(file.FileName,4)
file.SaveAs Server.mappath(bPath&bfilename) ''保存文件
end if
set file=nothing
'****************************************************************************************
set myrs=server.CreateObject("adodb.recordset")
myrs.Open "select * from t_product where productid=" & id,conn,1,3
'save_me.asp文件为生成的不同分类产品的字段集
%>
<!--#include file="../include/save_me.asp"-->
<%
'myrs("mak_price")=upload.form("mak_price")
'myrs("mem_price")=upload.form("mem_price")
'myrs("vip_price")=upload.form("vip_price")
myrs("small_photo")=sfilename
myrs("big_photo")=bfilename
myrs.update
myrs.Close
set myrs=nothing
session("current_type_id")=type_id '加入当前的产品分类
title_str="添 加 产 品"
msg_str="<b><font color=red>添加成功!</font></b><br><br>"
msg_str=msg_str & "<a href='list_product.asp?version="& current_ver & "'>浏览产品</a> <a href='add_product.asp?version="& current_ver & "&catalogid=" & catalogid & "'>继续添加产品</a>"
return_to_add
elseif edit_type="edit" then '当修改产品时
productid=upload.form("productid") '取得要修改的新闻ID号
state=upload.form("state")
if state="1" then
oos_txt=UpdateStr(upload.form("oos_txt"))
else
oos_txt=""
end if
set myrs=server.CreateObject("adodb.recordset")
myrs.Open "select * from t_product where productid=" & productid,conn,1,3
if myrs("small_photo")<>"" then del_s_photo=upload.form("del_s_photo") '更改缩略图片
if del_s_photo="1" then
sfilename=""
else
'上传图片
'****************************************************************************************
set file=upload.file("small_photo") '上传缩缩图
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
sfilename=current_ver & "_s_" & catalogid & "_" & productid & right(file.FileName,4)
file.SaveAs Server.mappath(sPath&sfilename) ''保存文件
end if
set file=nothing
if sfilename="" then sfilename=myrs("small_photo")
'****************************************************************************************
end if
if myrs("big_photo")<>"" then del_b_photo=upload.form("del_b_photo") '更改产品图片
if del_b_photo="1" then
bfilename=""
else
'上传图片
'****************************************************************************************
set file=upload.file("big_photo") '上传产品图片
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=current_ver & "_b_" & catalogid & "_" & productid & right(file.FileName,4)
file.SaveAs Server.mappath(bPath&bfilename) ''保存文件
end if
set file=nothing
if bfilename="" then bfilename=myrs("big_photo")
'****************************************************************************************
end if
'开始更新数据
myrs("type_id")=type_id
myrs("is_index")=is_index
myrs("is_top")=is_top
myrs("is_comm")=is_comm
myrs("is_hot")=is_hot
myrs("hot_txt")=hot_txt
myrs("state")=state
myrs("oos_txt")=oos_txt
myrs("last_date")=now()
'save_me.asp文件为生成的不同分类产品的字段集
%>
<!--#include file="../include/save_me.asp"-->
<%
'myrs("mak_price")=upload.form("mak_price")
'myrs("mem_price")=upload.form("mem_price")
'myrs("vip_price")=upload.form("vip_price")
myrs("small_photo")=sfilename
myrs("big_photo")=bfilename
myrs.update
myrs.Close
set myrs=nothing
return_to_edit '返回修改页面
'Response.Write session("current_productid")
'Response.Write session("current_edit_page")+1
else
title_str="非 法 操 作"
msg_str="<b><font color=red>你执行了非法操作!</font></b>请返回<A href='javascript:history.back(1)'>.</A>"
return_to_add
end if
set upload=nothing ''删除此对象
%>
<%sub return_to_edit()%>
<form action="edit_product.asp" method=post name="frm_page">
<INPUT type="hidden" name="catalogid" value="<%=catalogid%>">
<INPUT type="hidden" name="version" value="<%=current_ver%>">
<INPUT type="hidden" name="me_page" value=<%=session("current_edit_page")+1%>>
<INPUT type="hidden" name="productid" value="<%=session("current_productid")%>">
</form>
<script language="javascript">
document.frm_page.submit();
</script>
<%end sub%>
<%sub return_to_add()%><html>
<head>
<title><%=system_name%>_添加新产品</title>
<META NAME="robots" CONTENT="none">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css"></head>
<body bgcolor="#FFFFFF" leftMargin=0 marginwidth="0" topmargin=0>
<!--#include file="../include/header.asp"-->
<br>
<table width="700" border="0" cellspacing="1" cellpadding="1" bgcolor="#f0f0f0" align="center">
<tr>
<td>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="left">
<td height="28" > <font face="webdings" color="#666666">8</font><a href="main.asp">回主菜单</a>
<img src="../images/pixel.gif" width="235" height="1"><span style="FONT-SIZE: 14px"><b><font color="#666666"><%=title_str%></font></b></span></td>
</tr>
<tr align="center">
<td height="120" bgcolor="#ffffff"><%=msg_str%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<br>
<!--#include file="../include/bottom.asp"-->
</body>
</html>
<%end sub%>
网页错误信息提示如下:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]无法将 NULL 值插入列 'productid',表 'karyson.karyson.t_product';该列不允许空值。INSERT 失败。
/karyson/pro/hypervisor/add_ok.asp,行 44
我看了下数据库中的表,productid这个字段是不允许为空的啊,
但事实这个网站在远程服务器上是能用的中了,我换了台服务器就不行了中了,为什么、????各位大全帮帮忙,不胜感激!