直达版面的快速登录入口修改

5341 主题	8361 帖子	1万积分

管理员

出售国内外虚拟空间

Rank: 10

积分: 14733
帖子: 8361
精华: 67
体力: 14733 点
蓝豆: 2391 点

注册时间: 2007-6-8

发表于 2007-9-6 20:26:00 | 显示全部楼层 |阅读模式

三、修改login.asp：

找到：
If instr(lcase(request(\"comeurl\")),\"reg.asp\")>0 or instr(lcase(request(\"comeurl\")),\"login.asp\")>0 or trim(request(\"comeurl\"))=\"\" Then
comeurlname=\"\"
comeurl=\"index.asp\"
Else
comeurl=request(\"comeurl\")
comeurlname=\"

"&request("comeurl")&"

\"
End If
下边添加：
If request.form(\"GotoBoardList\")<>\"\" Then
Dim ComeBoardID,tRs
ComeBoardID=Dvbbs.CheckStr(request.form(\"GotoBoardList\"))
Set tRs=Dvbbs.Execute(\"Select BoardType From Dv_Board Where BoardID=\"&ComeBoardID)
If Not tRs.Eof Then
comeurl=\"index.asp?boardid=\"&ComeBoardID
comeurlname=\"

"&tRs(0)&"

\"
End If
tRs.Close
Set tRs=Nothing
End If

在首页的快速登录区添加登录状态和直达版面，以及在登录页面添加直达版面的修改方法如下：

一、修改后台模板，page_index的template.html(2)，

找到：

改为：