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

三、修改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)， 找到： 不保存保存一天保存一月保存一年 改为： 不保存保存一天保存一月保存一年 正常登录隐身登录 二、修改后台模板，page_login的template.html(0)， 找到： 前边添加：
登录版面选择 您可以选择您要登录的版面。