[求助]有段程序不明白请教大家,帮小弟解决一下,非常感谢

勇敢的心

以下是原始代码:
出现问题的是:我把所有的都填写上,点提交出现：还是会出现"带*的选项必须填写或选择，请返回检查后再提交"


<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/SqlIn.Asp"-->
<%
if session("adminlogin")<>sessionvar then
response.Write("<script>alert('可能您还没有登陆或者登陆超时！请重新登陆！');this.top.location.href='admin_index.asp';</script>")
call closeconn()
Response.End
End If
%>
<%
if request.QueryString("guiqi")="add" then'=============发布软件
set rs = server.createobject("adodb.recordset")
dim name,ip,gameid,sdate,hour,minute,addr,xingzhi,homepage,download,hot,top,time,Fine
name=htmlencode(request("name"))
ip=htmlencode(request.form("ip"))
gameid=htmlencode(trim(request.form("gameid")))
Service=htmlencode(trim(request.form("Service")))
sdate=htmlencode(request.form("sdate"))
hour=htmlencode(request.form("hour"))
minute=htmlencode(request.form("minute"))
addr=htmlencode(request.form("addr"))
hot=htmlencode(request.form("hot"))
top=htmlencode(request.form("top"))
time=htmlencode(request.form("time"))
Fine=htmlencode(request.form("Fine"))
xingzhi=htmlencode(request.form("xingzhi"))
QQ=htmlencode(request.form("QQ"))
homepage=htmlencode(request.form("homepage"))
download=htmlencode(request.form("download"))
if name="" or ip="" or gameid="" or Service="" or homepage="" or QQ="" or xingzhi="" or addr="" or SDATE="" or hour="" or minute="" then
response.write "<script>alert('带*的选项必须填写或选择，请返回检查后再提交');history.back()</script>"
call closeconn()
response.end
end if
call add()
call closeconn()
sub add()
sql="select * from Gq_sfdata"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("ip")=ip
rs("gameid")=gameid
rs("Service")=Service
rs("SDATE")=sdate
rs("hour")=hour
rs("minute")=minute
rs("addr")=addr
rs("xingzhi")=xingzhi
rs("QQ")=QQ
rs("homepage")=homepage
rs("download")=download
rs("ulock")=1
rs("top")=1
rs("hot")=1
rs("Fine")=1
rs("hot")=hot
rs("top")=top
rs("Fine")=Fine
rs("time")=time
if trim(request.form("top"))="1" then
rs("toptime")=Now()
end if
if trim(request.form("hot"))="1" then
rs("hottime")=Now()
end if
if trim(request.form("fine"))="1" then
rs("finetime")=Now()
end if
rs.update
response.write "<script>alert('服务器"&name&"提交成功\n请等待管理员审核。\n请不要重复发布信息！\n如果信息发布错误需要修改，\n请直接联系管理员');location.replace('admin_add.asp')</script>"
rs.close
rs.nothing
call closeconn()
end sub
end if
%>
希望论坛里面的大哥大姐帮小弟解决一下.非常感谢!小弟刚学ASP语言不久,还不太懂!

wendy

强烈支持。楼主万岁