📄 ms_module.asp
字号:
<%Sub SearchInput(isSelect) '站内搜索%>
<table border="0" width="100%" cellpadding="0" cellspacing="0" class="text">
<tr>
<td height="10" colspan="2"></td>
</tr>
<form name="ms_search" action="search.asp" method="post">
<tr>
<td width="62" height="22" valign="middle" align="right"> 栏 目：</td><td>
<select name="typeSelect">
<option value="suart" <%If isSelect="art" Then%> selected<%End If%>>搜索站内文章</option>
<option value="sunews" <%If isSelect="news" Then%> selected<%End If%>>搜索新闻动态</option>
<option value="susofter" <%If isSelect="soft" Then%> selected<%End If%>>搜索站内软件</option>
<option value="supic" <%If isSelect="pic" Then%> selected<%End If%>>搜索站内图片</option>
<option value="sures" <%If isSelect="res" Then%> selected<%End If%>>搜索免费资源</option>
</select>
</td>
</tr>
<tr><td height=3 colspan="2"></td></tr>
<tr>
<td height="21" valign="middle" align="right"> 方 式：</td><td>
<select name="modeSelect">
<option value="suTitle">按标题来搜索</option>
<option value="suCentent">按内容来搜索</option>
</select></td>
</tr>
<tr><td height="3" colspan="2"></td></tr>
<tr>
<td height="24" valign="middle" align="right"> 关键字：</td><td>
<input name="selectkeyword" class="wenbenkang" type="text" size="15">
</td>
</tr>
<tr><td height=3 colspan="2"></td></tr>
<tr>
<td height="25" valign="middle" align="center" colspan="2">
<input class="but1" type="submit" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" name="ms_search" value="搜 索">
<input class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" type="reset" name="Submit2" value="清 空">
</td>
</tr>
</form>
<tr><td height="10" colspan="2"></td></tr>
</table>
<%End Sub
Sub publiclogonModule()
If session(userVar)<>userVal Then
%>
<div align="center" style="margin-top:10px;">欢迎您,客人！</div>
<Form action="logon.asp?action=logon" method="post" name="login">
<div align="center" style="margin:4px;">用户名：<input name="userName" class="wenbenkang" type="text" size="16"></div>
<div align="center" style="margin:4px;">密 码：<input name="userPass" class="wenbenkang" type="password" size="16"></div>
<div align="center" style="margin:4px;">验证码：<input name="code" class="wenbenkang" type="text" size="5" maxlength="4"> <img src=include/code.asp height="14" alt="请点击刷新验证码!" onMouseOver="this.style.cursor='hand';" onClick="this.src='include/code.asp'"> </div>
<div align="center" style="margin:4px;"><input type="submit" class="put_bottom" onMouseOver="this.className='over_bottom'" onMouseOut="this.className='put_bottom'" name="Submit" value="登录"> <input type="button" name="Submit2" class="put_bottom" onMouseOver="this.className='over_bottom';" onMouseOut="this.className='put_bottom'" onClick="window.location.href='user_reg.asp'" value="注册"><div style="text-align:right;padding-top:3px;"><a href="forget.asp?action=Forget">忘记密码?试试这里。</a></div></div>
</Form>
<%Else
userInfo=session("userinfo")
dim newsms
newsms=conn.execute("select count(*) as newsms from ms_sms where incept_user='"&userInfo(1)&"' and sms_isSend=1 and sms_delSe=0 and sms_delRe=0 and sms_isread=false")(0)
If newsms>0 Then
response.write("<bgsound src=""images/sms/sms.wav"" border=0>")
End If
%>
<table width="100%" border="0" cellpadding="2" cellspacing="0" class="text">
<tr>
<td width="120" height="18" valign="bottom" style="padding-left:3px;padding-top:4px;"> 登录：<%=userInfo(6)%>
</td>
<td width="*" rowspan="4" valign="middle" style="padding-right:3px;padding-top:3px;"><img src=images/userface/<%=userInfo(5)%>.gif width="75" height="75"></td>
</tr>
<tr>
<td height="18" valign="middle" style="padding-left:4px;"> <%=pointName&"："&cstr(userInfo(3))&" "&pointUnits%></td>
</tr>
<tr>
<td height="18" valign="middle" style="padding-left:4px;"> <%=moneyName&"："&cstr(userInfo(4))&" "&moneyUnits%></td>
</tr>
<tr>
<td height="18" valignā="middle" style="padding-left:4px;"> 短信：(<font color="#ff0000"><%=newsms%></font>新)</td>
</tr>
<tr>
<td height="22" colspan="2" valign="middle" align="center">
<%if userInfo(2)=1 then
Response.Write "<font color=""#ff4444"">欢迎您，"&userInfo(1)&"[注册会员]</font>"
elseif userInfo(2)=2 then
Response.Write "<font color=""#ff4444"">欢迎您，"&userInfo(1)&"[VIP会员]</font>"
elseif userInfo(2)=3 then
Response.write "<font color=""#ff4444"">欢迎您，"&userInfo(1)&"[管理员]</font>"
end if%>
</td>
</tr>
<tr>
<td height="22" colspan="2" valign="middle" align="center" style="line-height:20px;">
<a href="user_center.asp?action=bookmarker">我的书签</a>
<a href="user_center.asp?action=sms">我的短信</a>
<a href="user_center.asp?action=friendlist">我的好友</a><br>
<a href="user_center.asp?action=modifyinfo">资料修改</a>
<a href="user_center.asp">会员中心</a>
<a href="logout.asp">安全退出</a>
</td>
</tr>
</table>
<%
End If
End Sub
Sub plModule()%>
<table width="100%" border="0" cellpadding="2" cellspacing="0" class="plForm">
<Form action="pl.asp?action=maosin_apl&pltype=<%=pltype%>&id=<%=request.querystring("id")%>" Method='post' name="pl" onKeyDown="if(event.keyCode==13 && event.ctrlKey){return sufm();}">
<tr>
<td width="50" height="22" valign="top" align="right"> 姓 名：</td>
<td width="227" valign="top"><input name="pl_name" type="text" class="wenbenkang" size="20" maxlength="10"></td>
<td width="*" rowspan="4" valign="middle" style="line-height:18px;">
<ul>
<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规</li>
<li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任</li>
<li>本站管理人员有权保留或删除其管辖留言中的任意内容</li>
<li>本站有权在网站内转载或引用您的评论</li>
<li>参与本评论即表明您已经阅读并接受上述条款</li>
</ul>
</td>
</tr>
<tr>
<td align="right">打 分：</td><td>
<input type="radio" name="fen" value="100">100
<input type="radio" name="fen" value="90">90
<input type="radio" name="fen" value="80" checked>80
<input type="radio" name="fen" value="70">70
<input type="radio" name="fen" value="60">60<br>
<input type="radio" name="fen" value="50">50
<input type="radio" name="fen" value="40">40
<input type="radio" name="fen" value="30">30
<input type="radio" name="fen" value="20">20
<input type="radio" name="fen" value="10">10
</td>
</tr>
<tr>
<td height="50" valign="top" align="right">评 论：<br>
<font color="#ff0000">*支持UBB</font> <br> </td>
<td valign="top"><textarea name="pl_content" cols="30" rows="4" wrap="VIRTUAL" onkeydown="contentlen(this)" onkeyup="contentlen(this)" title="按[Ctrl+Enter]直接发送"></textarea></td>
</tr>
<%If ms_isCode=1 Then%>
<tr>
<td height="22" align="right">验证码：</td><td><input name="ms_getcode" type="text" class="wenbenkang" size="6" maxlength="6"> <img src="include/code.asp" height="14" align="absmiddle" onclick="this.src='include/code.asp'" title="单击刷新验证码" alt="单击刷新验证码" onmouseover="this.style.cursor='hand'"></td>
</tr>
<%End If%>
<tr>
<td height="22" colspan="3" valign="middle" align="center">
<input type="hidden" value=<%=request.querystring("id")%> name="id">
<input class="but1" type="submit" name="addplsu" value="提交" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" onClick="return sufm()">
<input class="but1" type="reset" name="Submit2" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" value="重置">
<span style="color:#888888;">[最多字字数：<input type="text" value="150" id="maxlen" size="2" style="border-width:0;background:transparent;" disabled> 个字符 已用字数：<input type="text" value="0" id="useing" size="2" style="border-width:0;background:transparent;" disabled> 个字符 剩余字数：<input type="text" value="150" id="yis" size="2" style="border-width:0;background:transparent;" disabled> 个字符]</span>
</td>
</tr>
</Form>
</table>
<%
End Sub
Sub showLogonCode(strMsg)%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="300" valign="middle" align="center" class="text">
<p style="text-align:left;line-height:18px;width:300px;">尊敬的朋友，欢迎光临<%=webname%>!<br /><br/>
<%=strMsg%>
</p>
<Form action="logon.asp?action=logon" method="post" name="login">
<div align="left" style="line-height:18px;width:300px;">用户名：
<input type="text" class="wenbenkang" name="userName" /><br>
密 码：
<input type="text" class="wenbenkang" name="userPass" /><br>
验证码：
<input type="text" class="wenbenkang" name="code" size="10"/> <img src=include/code.asp height="14" alt="请点击刷新验证码!" onMouseOver="this.style.cursor='hand';" onClick="this.src='include/code.asp'"><br>
Cookie：
<select name="select">
<option selected="selected">不保存</option>
<option>保存一天</option>
<option>保存一月</option>
<option>保存半年</option>
<option>保存一年</option>
</select>
<br>
<center style="padding-top:5px;">
<input class="but1" type="submit" name="Submit" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" value="登录" />
<input class="but1" type="button" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" name="Submit2" value="注册" /></center>
<br>
忘记密码，<a href="forget.asp?action=Forget">请试试这里。</a>。 <br>
</div>
</form>
</td>
</tr>
</table>
<%End Sub
function maosin_adTemp(adType1,adType2)
if adType1=1 then
if adType2=0 then
maosin_adTemp="<a href='$adurl$' target='_blank'><img src='$adpicurl$' width='$width$' height='$height$' border='0' alt='$adinfo$'></a>"
elseif adType2=1 then
maosin_adTemp="<embed src='$adpicurl$' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='$width$' height='$height$'></embed>"
end if
elseif adType1=2 then
'maosin_adTemp="<html><head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>$adname$</title><style type='text/css'>body { font-size: 12px; font-family: 宋体;margin: 0px;} td { font-size: 12px; font-family: 宋体; line-height: 18px;} a {color: #111111; text-decoration: none} a:hover { color: #ff8c40; text-decoration: underline}</style></head><body>$adcode$<br></body></html>"
maosin_adTemp="$adcode$"
end if
end function
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -