动网首页登陆入口调用

http://bbs.apabi.com/dispbbs.asp?boardID=24&ID=18614&page=1

动网首页登陆入口调用

<!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->

<SCRIPT language=javascript>
function CheckForm()
{
  if(document.UserLogin.UserName.value=="")
  {
   alert("请输入用户名！");
   document.UserLogin.UserName.focus();
   return false;
  }
  if(document.UserLogin.Password.value == "")
  {
   alert("请输入密码！");
   document.UserLogin.Password.focus();
   return false;
  }
}
function openScript(url, width, height)
{
  var Win = window.open(url,"UserControlPad",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
</SCRIPT>

<SCRIPT language=javascript>
function openScript(url)
{
  var Win = window.open(url,"UserControlPad");
}
function openScript2(url, width, height)
{
  var Win = window.open(url,"UserControlPad",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
</SCRIPT>
<%if Dvbbs.UserID>0 then%><!-- 判断用户是否登陆 -->
<img src="<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userface").text%>" width="60"><!-- 用户头像调用 --><br>
欢迎您：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text%> <!-- 用户名称 --><br>
头衔：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertitle").text%><!-- 用户头衔 --><br>
等级：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userclass").text%> <!-- 用户等级 --><br>
积分：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text%><!-- 用户积分 --><br>
发帖：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text%><!-- 用户发帖数 --><br>
<%
     if Dvbbs.SendMsgNum>0 then
     Response.Write("<a href='usersms.asp?action=inbox'>")
     response.write("您有")
     Response.Write("<font color='#FC511F'><b>")
     Response.Write(Dvbbs.sendmsgnum)
     Response.Write("</b></font>")
     Response.Write("新的短信")
     Response.Write("</a>")
     else
     Response.Write("<a href='usersms.asp?action=inbox'>")
     response.write("您没有新短信")
     Response.Write("</a>")
     end if
     %><!-- 用户短信信息 -->
<%else%>

<!-- 下面是登陆框 -->
<FORM name=UserLogin onsubmit="return CheckForm();" action="login.asp?action=chk" method=post>
用户名：<INPUT id=UserName maxLength=30 size=10 name=UserName class="login_index"><br>
密　码：<INPUT id=Password type=password maxLength=20 size=10 name=Password><br>
cookies：<SELECT name=CookieDate class="login_index"><OPTION value=0 selected>不保存</OPTION><OPTION value=1>保存一天</OPTION> <OPTION value=2>保存一月</OPTION><OPTION value=3>
       保存一年</OPTION></SELECT><br>
<!-- 判断是否开始验证码 -->
<%if Dvbbs.Forum_Setting(79)=1 then%>
    <font color="#065A7A">验证码</font><input type="text" name="codestr" size="4"><img src="DV_getcode.asp" height="18" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onclick="this.src='DV_getcode.asp'"/>
    <%end if%>
<br><input type=submit name=submit value="登　录"> <input  type=button  value="注　册"  onclick="window.location.href='reg.asp?action=apply'"> </form>
<%end if%>

---

本文由 [8848] 发表，其他单位或个人使用、转载或引用本文时必须征得 [8848] 与〖Apabi论坛〗的同意; 发贴者承担一切因本文发表而直接或间接导致的民事或刑事法律责任;本论坛的管理员和版主有权不事先通知发贴者而删除本文! Apabi Reader下载地址: http://www.apabi.com/Reader/GBKElibraryReaderSetup.exe

可以把上面的代码中的

从<SCRIPT language=javascript>开始，到</SCRIPT>这些去掉(这些是提示录入错误的),然后单独建一个asp文件进行测试,当然得把这个文件存在论坛相同的目录内;