直达版面的快速登录入口修改
<p></p><p>在首页的快速登录区添加登录状态和直达版面，以及在登录页面添加直达版面的修改方法如下：</p><p>一、修改后台模板，page_index的template.html(2)，</p><p>找到：<br/><select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select> <input type=submit name=submit value=\"登录\"><br/>改为：<br/><select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select><br/><select size=\"1\" name=\"userhidden\"><option value=2 selected>正常登录</option><option value=1>隐身登录</option></select><br><br/><SELECT NAME=\"GotoBoardList\" ID=\"GotoBoardList\" style=\"width:260\"></SELECT><script type=\"text/javascript\" language=\"javascript\">BoardJumpListSelect(\"0\",\"GotoBoardList\",\"登录论坛至...\",\"\",0)</script> <input type=submit name=submit value=\"登录\"></p><p>二、修改后台模板，page_login的template.html(0)，</p><p>找到：<br/><input type=hidden name=comeurl value=\"{$comeurl}\"><br/>前边添加：<br/><tr><br/><td valign=top width=30% class=tablebody1><b>登录版面选择</b><BR>您可以选择您要登录的版面。</td><br/><td valign=middle class=tablebody1><SELECT NAME=\"GotoBoardList\" ID=\"GotoBoardList\" style=\"width:260\"></SELECT><script type=\"text/javascript\" language=\"javascript\">BoardJumpListSelect(\"0\",\"GotoBoardList\",\"登录论坛至...\",\"\",0)</script></td><br/></tr></p><p>三、修改login.asp：</p><p>找到：<br/>If instr(lcase(request(\"comeurl\")),\"reg.asp\")>0 or instr(lcase(request(\"comeurl\")),\"login.asp\")>0 or trim(request(\"comeurl\"))=\"\" Then<br/>comeurlname=\"\"<br/>comeurl=\"index.asp\"<br/>Else<br/>comeurl=request(\"comeurl\")<br/>comeurlname=\"<li><a href=\"&request(\"comeurl\")&\">\"&request(\"comeurl\")&\"</a></li>\"<br/>End If<br/>下边添加：<br/>If request.form(\"GotoBoardList\")<>\"\" Then<br/>Dim ComeBoardID,tRs<br/>ComeBoardID=Dvbbs.CheckStr(request.form(\"GotoBoardList\"))<br/>Set tRs=Dvbbs.Execute(\"Select BoardType From Dv_Board Where BoardID=\"&ComeBoardID)<br/>If Not tRs.Eof Then<br/>comeurl=\"index.asp?boardid=\"&ComeBoardID<br/>comeurlname=\"<li><a href=\"&comeurl&\">\"&tRs(0)&\"</a></li>\"<br/>End If<br/>tRs.Close<br/>Set tRs=Nothing<br/>End If<br/></p>
页:
[1]