function.asp

夏茂政府网站

<%
    '//备用调用代码
    Function zf11_diaoyong()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133>"
    response.write "<tr>"
    response.write "<td height=33 background=images/zf11_leftvote.gif></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>备用调用</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 Function
%>

<%
    '//栏目左边的图片
    Function zf11_img()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left01.gif'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//栏目左边的图片
    Function zf11_img2()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left07.gif'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//栏目左边的图片
    Function zf11_img3()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left03.gif'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//栏目左边的图片
    Function zf11_img4()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left04.gif'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//栏目左边的图片
    Function zf11_img5()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left06.jpg'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//栏目左边的图片
    Function zf11_img6()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=199 height=133>"
    response.write "<tr>"
    response.write "<td height=33 ><img src='images/left05.jpg'></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//备用调用代码
    Function zf11_xinxiang()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=180 height=163>"
    response.write "<tr>"
    response.write "<td height=0 ></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=180 height=163 >"
    response.write "<tr>"
    response.write "<td><img src='images/index_28.gif' alt='四通政府网' border='0' usemap='#Map' /></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=180 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//用户登陆调用
    Sub zf11_userlogin()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/zf11_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(zf11_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=zf11User_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 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(zf11_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(zf11_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 zf11_userlogin2()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 >"
    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;<img src='images/left_menu01.jpg' height=19 width=170></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>"
    response.write "<tr>"
    response.write "<td valign=top>"
    '------------主要内容开始
    if Request.Cookies(zf11_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=zf11User_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 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(zf11_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(zf11_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>"