一个产品发布的保存实现页面,总是提示已经发布(事实不是如此),数据库(SQL)连接没有问题,请问怎么解决?
一个产品发布的保存实现页面,总是提示已经发布(事实不是如此),数据库(SQL)连接没有问题,请问怎么解决?(原来是ACCESS,没有问题;转换到SQL时才发生这样的问题)
页面代码:
<%@ codepage ="936" %>
<%OPTION EXPLICIT%>
<!--#include FILE="upload_5xsoft.inc"-->
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/config.asp"-->
<html>
<body>
<%
dim upload,file,formName,formPath,iCount,gsid,filename,rs,sql,picture
dim cpbh,cpmc,cpsb,cpjg,cpgg,bighy,lithy,jysm,xxsm,sf,city,sccj,lxr,address,postcode,phone,fax,email,web
set upload=new upload_5xSoft
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath=upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
cpbh=upload.form("cpbh")
cpmc=upload.form("cpmc")
cpsb=upload.form("cpsb")
cpjg=upload.form("cpjg")
cpgg=upload.form("cpgg")
bighy=upload.form("bighy")
lithy=upload.form("lithy")
jysm=upload.form("jysm")
xxsm=upload.form("xxsm")
sccj=upload.form("sccj")
lxr=upload.form("lxr")
address=upload.form("address")
postcode=upload.form("postcode")
sf=upload.form("sf")
city=upload.form("city")
phone=upload.form("phone")
fax=upload.form("fax")
email=upload.form("email")
web=upload.form("web")
gsid=session("id")
iCount=0
for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 then
if file.filesize>200000 then
HtmEnd "您上传的文件大于规定大小(200K),请改变文件大小后再进行上传。"
else
if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif" then
HtmEnd "您上传的文件GIF或JPG图象文件,请将你上传的文件转换此格式后再进行上传。"
else
FileName=gsid&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&FileName)
picture=FileName
iCount=iCount+1
set rs=server.createobject("adodb.recordset")
sql="select * from spzs where cpmc='"&upload.form("cpmc")&"'and sccj='"&upload.form("sccj")&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write"<SCRIPT language=JavaScript>alert('对不起,您已经提交过此类产品!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
rs.addnew
rs("cpbh")=cpbh &"-" & gsid
rs("cpmc")=cpmc
rs("cpsb")=cpsb
rs("cpjg")=cpjg
rs("cpgg")=cpgg
rs("picture")=picture
rs("sortid")=bighy
rs("typeid")=lithy
rs("jysm")=jysm
rs("xxsm")=xxsm
rs("sccj")=sccj
rs("lxr")=lxr
rs("address")=address
rs("postcode")=postcode
rs("sf")=sf
rs("city")=city
rs("phone")=phone
rs("fax")=fax
rs("email")=email
rs("web")=web
rs("gsid")=gsid
rs("idate")=dateadd()
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
set upload=nothing
response.redirect ("showing.asp#a")
end if
end if
end if
set file=nothing
end if
next
%>
<%
response.write"<SCRIPT language=JavaScript>alert('对不起,您上传的图片有错误,请检查!!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
%>