test

研究生会网站,,适合大中专门院校学生组织使用

<%
    Call Gaobei_CopyRight()
    function Gaobei_CopyRight()
    response.write "<!--"& vbCrLf
    response.write "★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★"& vbCrLf
    response.write "★                                                  ★"& vbCrLf
    response.write "☆                哈工大（威海）研究生会管理系统 V 2.0 版                 ☆"& vbCrLf
    response.write "★                                                  ★"& vbCrLf
    response.write "☆          网址：http://www.hitwh.edu.cn             ☆"& vbCrLf
    response.write "★                                                  ★"& vbCrLf
    response.write "☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆"& vbCrLf
    response.write "-->"& vbCrLf
    End Function
%>
<%
    '//哈工大（威海）研究生会用户登陆调用
    Sub Gaobei_userlogin()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/gaobei_skin/gaobei_shardh.gif>"
    response.write "<tr>"
    response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style='letter-spacing: 3px'>用户登陆</span></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td valign=top>"
    '------------主要内容开始
    if Request.Cookies(Gaobei_Sys)("UserID")="" then
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=165 height=147>"
    response.write "<form name=GaobeiUser_Login action=Login.asp method=post onSubmit='return CheckForm();'>"
    response.write "<tr>"
    response.write "<td width=65 align=center>用户名</td>"
    response.write "<td width=100 align=center><input name=UserName type=text class=insert value='' size=12 maxlength=20></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td width=65 align=center>密&nbsp; 码</td>"
    response.write "<td width=100 align=center><INPUT name=UserPassword type=password class=insert id=UserPassword size=12 maxlength=20></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td width=65 align=center>COOKIE：</td>"
    response.write "<td width=100 align=center>"
    response.write "<select name=CookieDate>"
    response.write "<option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option>"
    response.write "</select></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td width=165 colspan=2 align=center>"
    'response.write "<input name=Submit type='image' src='images/Gaobei_skin/denglu.gif' border=""0"">&nbsp;&nbsp;"
    'response.write "<a href='UserReg.asp'><img src='images/Gaobei_skin/zhuce.gif' border=0></a>"
    response.write "<input type=submit name=Submit value='登 陆'>&nbsp;&nbsp;"
    response.write "<input type=button name=Submit2 value='注 册' onClick=location.href='UserReg.asp'>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</FORM>"
    response.write "</table>"
    response.write "</div>"
    else 
    response.write "<table width=160 border=0 align=center cellpadding=3 cellspacing=0>"
    response.write "<tr><td width='37%' height=21 align=right>用户名：</td>"
    response.write "<td width='63%' height=21>"
    response.Write(Ucase(Request.Cookies(Gaobei_Sys)("Username")))
    response.write "</td></tr><tr> "
    response.write "<td height=18 align=right>身&nbsp; 份：</td>"
    response.write "<td height=18>"
    select case Request.Cookies(Gaobei_Sys)("Grade")
    case 1
    response.write "VIP会员"
    case else
    response.write "普通会员"
    end select
    response.write "</td>"
    response.write "</tr>"
    response.write "<tr> "
    response.write "<td height=18 colspan=2 align=center>"
    response.write "<a href=Login.asp?Action=LoginOut>退出登陆</a>&nbsp;&nbsp;&nbsp;&nbsp;"
    response.write "<a href=UserModify.asp>修改资料</a></td>"
    response.write "</tr>"
    response.write "</table> "
    End If
    '-----------主要内容结束
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Sub
%>
<%
    '//哈工大（威海）研究生会文章搜索调用
    Sub Gaobei_Search()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/gaobei_skin/gaobei_shardh.gif>"
    response.write "<tr>"
    response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style='letter-spacing: 3px'>站内搜索</span></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td>"
    '------------主要内容开始
    response.write "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""2"">"& vbCrLf
    response.write "<form name=""search"" method=""post"" action=""search.asp""> "& vbCrLf
    response.write "<tr><td height=""32"" colspan=""2"" align=""center"">"& vbCrLf
    response.write "<br>请输入要搜索信息的内容!<br>搜索信息:<input name=txtitle type=Text id=txtitle size=12 maxlength=50>"
    response.write "</td></tr>"& vbCrLf
    response.write "<tr><td width=""49%""align=""right"">"& vbCrLf
    response.write "<input type=""submit"" value=""查 询"" name=""title2"" class=""buttonface""></td>"& vbCrLf
    response.write "<td width=""51%"" align=""center"">"& vbCrLf
    response.write "<input type=""reset"" name=""Submit3"" value=""清 除""></td></tr>"& vbCrLf
    response.write "</form></table>"& vbCrLf
    '------------主要内容结束
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End sub
%>
<%
    '//哈工大（威海）研究生会图片展示分类调用
    Function Gaobei_picsort()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/gaobei_skin/gaobei_shardh.gif>"
    response.write "<tr>"
    response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style='letter-spacing: 3px'>图片分类</span></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td>"
    '------------主要内容开始
    sql="select piccat_id,piccat_name from piccat"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    response.write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD>" & vbCrLf
    response.write "<TD height=""23"">"
    do while not rs.eof
    if request("piccat_id")=cstr(rs("piccat_id")) then
    response.write "&nbsp;<font class=\"title\">"