ASP源码数据库修改问题
下面是我下载的网站源码,上传空间后,登陆后台没有问题,删除文章也没有问题。问题是,当我【添加】或者【修改】网站内容的时候,点击【提交】就会出现【非法登陆】提示。有人说是数...
下面是我下载的网站源码,上传空间后,登陆后台没有问题,删除文章也没有问题。问题是,当我【添加】或者【修改】网站内容的时候,点击【提交】就会出现【非法登陆】提示。有人说是数据库链接的问题,我也不懂代码,下面是conn.asp。请大家帮我看看,哪里需要改动????
<%connbl=0
if instr(request.ServerVariables("URL"),"login.asp")<1 then
if instr(request.ServerVariables("URL"),"/admin/")>0 then
if session("LoginID")="" then
%>
<script>
parent.location.href="/admin/login.asp";
</script>
<%
response.End()
end if
end if
end if
set conn=server.CreateObject("adodb.connection")
if connbl=1 then
ConnStr="server=.;driver={sql server};database=TTNet;uid=sa;pwd="
else
connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../ttdb/ttwl.asp")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data; Source="& Server.MapPath("../ttdb/ttwl.asp")
end if
conn.open connstr
if err.number>0 then
response.Write("数据库错误,请联系管理员")
response.End()
end if
Function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length-2 then
txt = left(trim(txt),ii)&"…" '"字符串限长
exit for
end if
next
InterceptString = txt
else
InterceptString = ""
end if
End Function
%> 展开
<%connbl=0
if instr(request.ServerVariables("URL"),"login.asp")<1 then
if instr(request.ServerVariables("URL"),"/admin/")>0 then
if session("LoginID")="" then
%>
<script>
parent.location.href="/admin/login.asp";
</script>
<%
response.End()
end if
end if
end if
set conn=server.CreateObject("adodb.connection")
if connbl=1 then
ConnStr="server=.;driver={sql server};database=TTNet;uid=sa;pwd="
else
connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../ttdb/ttwl.asp")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data; Source="& Server.MapPath("../ttdb/ttwl.asp")
end if
conn.open connstr
if err.number>0 then
response.Write("数据库错误,请联系管理员")
response.End()
end if
Function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length-2 then
txt = left(trim(txt),ii)&"…" '"字符串限长
exit for
end if
next
InterceptString = txt
else
InterceptString = ""
end if
End Function
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询