请教高手：ASP+ACCESS+NETBOX运行环境

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:48:58
Microsoft VBScript 编译器错误 '800a0409'

未结束的字符串常量
======================不太明白==============以下是代码========
<!--#include file=conn.asp -->
<!--#include file=JavaScript.asp-->
<!--#include file=md5.asp-->

<%
if trim(Request("verify"))="" then
Alert("请输入附加码！")
elseif Trim(Request.form("verify"))<>session("verifycode") then
Alert("你输入的附加码和系统产生的不符！")
end if
AdminUID=trim(Request.Form("AdminUID"))
AdminPWD=md5(trim(Request.Form("AdminPWD")))
AdminUID=replace(AdminUID,"'","''")
AdminPWD=replace(AdminPWD,"'","''")
LanguageID=trim(Request.Form("LanguageID"))
if not IsNumeric(LanguageID) or IsEmpty(LanguageID) then LanguageID=2
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * f

看代码本身确实无问题,Alert()应该是楼主自己编写的对话框弹出sub或函数,
估计问题可能出在数据库字段拼写或者include文件与当前代码产生了冲突。
建议先把session赋值操作去掉，或更改查询条件，或去掉各个if判断之后逐一测试。 另说句一问题无相关的话：ASP+ACCESS+NETBOX不如ASP+sqltite+NETBOX性能好，数据量大的时候更明显。

祝好运！

rs.update
rs.close ----------------------------------去掉
set rs=nothing ----------------------------去掉
Response.Redirect "admin_main.asp"

而且是先：set rs=nothing 后关闭，conn同样是

楼上说反了，你的顺序是对的
没看到有异常的地方，可以考虑放在IIS下跑跑

session("AdminUID")=rs("AdminUID")
session("AdminPWD")=rs("AdminPWD")
session("AdminRANK")=rs("AdminRANK")
session("RankUser")=rs("RankUser")
session("RankNews")=rs("RankNews")
session("RankGbook")=rs("RankGbook")
session("RankJoinUs")=rs("RankJoinUs")
session("RankProduct")=rs("RankProduct")
session("