<%@ Language=VBScript %> <%'response.expires=0%> <%session.Timeout =60%> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '软件名称:蓝色梦幻留言板 Version 2.80 多用户正式版 '版 本 号:Version 2.80 '授权类型:免费软件 '软件作者:胡孟杰 '电子邮件:hmj@hvttc.edu.cn '个人主页:http://hmj.student.hvttc.edu.cn '版权所有:胡孟杰 '版权声明:你所使用的版本是免费版,严禁修改源程序!否则属侵权行为! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '说明: 本软件为商业用户量身打造,如需定制或大量使用,请与作者联系。 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' userid=Request("userid") if userid="" then session("userid")="admin" else call checkuser() end if if session("ccuser")=1 and session("userid")<>"admin" then call htmhead() errmsg=errmsg+"
  • 对不起!当前系统已被设为单用户模式,不再提供免费留言服务。" founderr=true call disperrs(errmsg) Response.End end if %> <% call halfhead() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '最佳联系方式:电子邮件 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '地址:新乡市河南职业技术师范学院信管993 '邮编:453003 '传呼:0371-95950-8667123(人工) 或 0371-95951-8667123(自动) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% session("writed")="" call winhead() call banzhu("") %>
    adminbook.asp?userid=<%=session("userid")%>&action=insert" onsubmit="return checkform()"> <%else%> guestbook.asp?userid=<%=session("userid")%>&action=insert" onsubmit="return checkform()"> <%end if%>
    姓名*:
    主页URL:
    E-mail:
    所在单位:
    所在省份:
    通信地址:
    邮政编码:
    性别:      
    留言密码:
    年龄:
    OICQ:
    MSN号码:
    选择头像: 查看头像列表
    保密设定: 完全公开 悄悄话(仅斑竹可见)
    留言主题*:
    留言心情: <%for i=1 to 4 for j=1 to 6 %> checked> <%else%> > <%end if%> <%next%>
    <%next%>
    留言内容*:

    (最大<%=session("maxboardsize")%>字符)
     
    <% call winbottom() call endconnection() %> <% sub checkuser() dim sql,adrs,errormsg sql="select * from [admin] where userid='"&userid&"'" set adrs=server.createobject("adodb.recordset") adrs.open sql,conn,1,1 if err then err.clear call htmhead() errormsg="
  • 操作失败,无法读取系统参数!" call disperrs(errormsg) Response.End end if if adrs.EOF then call htmhead() errormsg="
  • 对不起,没有这个用户ID!
  • 点击这里进行注册." call disperrs(errormsg) set adrs=nothing call endconnection() Response.End end if session("userid")=userid set adrs=nothing end sub %>