setdefault.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 136 行
ASP
136 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Config.asp" -->
<%
OpenDB=True
Title="用户个性化设置 - 我爱啦(52.La)"
%>
<!--#include file="Inc/Function.asp" -->
<title><%=Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Css.css" rel="stylesheet" type="text/css">
<Script Language="javascript" Src="Inc/Main.js"></Script>
</head>
<%
Dim Action : Action=Trim(Request("Action"))
Dim RedirectID : RedirectID=Request.Cookies(CookieName&"RedirectID")
If RedirectID="" Then RedirectID = 0
If Action="ClearCookies" Then
Call ClearCookies()
Response.Redirect("?Action=None")
Elseif Action="MySearch" Then
Call MySearch()
Response.End()
Elseif Action="SaveDefault" Then
Call SaveDefault(Trim(Request("RedirectID")))
Response.Redirect("?Action=None")
End If
'=====================================================================
Sub ClearCookies()
Response.Cookies(CookieName&"MySearch")=""
Response.Cookies(CookieName&"MySearch").Expires = Date-1
End Sub
'---------------------------------------------------------------------
Sub MySearch()
Dim I,N
Dim TempStr
Dim StrA,StrB
TempStr=Request.Cookies(CookieName&"MySearch")
'Response.Write(TempStr)
If TempStr<>"" Then
StrA=Split(TempStr,"$52.La$")
For I = 0 To (UBound(StrA)-1)
StrB=Split(StrA(I),"$$")
Response.Write(" ")
Response.Write(CsType(StrB(0)))
Response.Write(" 关键字:")
Response.Write(StrB(1))
Response.Write(" 时间:")
Response.Write(StrB(2))
Response.Write("<br>")
Next
Response.Write("<br> [<a href='Javascript:history.back();'>返回上页</a>]")
Else
Response.Write("<strong><br> 您暂时还没有查询记录！</strong> [<a href='Javascript:history.back();'>返回上页</a>]")
End If
End Sub
Sub SaveDefault(IDs)
If IsNumeric(IDs) Then
Response.Cookies(CookieName&"RedirectID")=IDs
Response.Cookies(CookieName&"RedirectID").Expires = Date + 7
End If
End Sub
'=====================================================================
%>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" style="padding-top:0px; ">
<Script Language="javascript">
function ClearCookies()
{
if (confirm ("您真的需要清除记录吗？"))
{
location.href="?Action=ClearCookies";
}
else
{return false;}
}
</Script>
<table width="459" height="232" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="26" background="images/top.gif"><span class="style1"> 用户个性偏好设置</span></td>
</tr>
<tr>
<td height="196" valign="middle" background="images/bg.gif">
<table width="441" height="127" border="0" align="center" cellpadding="2" cellspacing="0">
<form action="?Action=SaveDefault" method="post">
<tr valign="top">
<td height="47" align="right" bgcolor="#EFEFEF" style="padding-top:10px;"><strong>跳转设置：</strong></td>
<td width="352" height="47" bgcolor="#EFEFEF" style="padding-top:5px;">
<select name="RedirectID" id="RedirectID">
<option value="0"<%If RedirectID=0 Then Response.Write(" Selected")%>>普通首页 (系统默认)</option>
<option value="2"<%If RedirectID=2 Then Response.Write(" Selected")%>>ＩＰ地址查询</option>
<option value="3"<%If RedirectID=3 Then Response.Write(" Selected")%>> - 通过ＩＰ查地址</option>
<option value="4"<%If RedirectID=4 Then Response.Write(" Selected")%>> - 通过地址查ＩＰ</option>
<option value="5"<%If RedirectID=5 Then Response.Write(" Selected")%>>号码查询</option>
<option value="6"<%If RedirectID=6 Then Response.Write(" Selected")%>> - 手机号码查询</option>
<option value="7"<%If RedirectID=7 Then Response.Write(" Selected")%>> - 身份证号码查询</option>
<option value="8"<%If RedirectID=8 Then Response.Write(" Selected")%>>生活查询</option>
<option value="9"<%If RedirectID=9 Then Response.Write(" Selected")%>> - 地名、邮编 查询</option>
<option value="10"<%If RedirectID=10 Then Response.Write(" Selected")%>> - 区号、城市 查询</option>
<option value="11"<%If RedirectID=11 Then Response.Write(" Selected")%>> - 火车车次、车站查询</option>
<option value="12"<%If RedirectID=12 Then Response.Write(" Selected")%>>站长查询 (SEO分析)</option>
<option value="1"<%If RedirectID=1 Then Response.Write(" Selected")%>>成语速查 (成语词典)</option>
</select>
<input type="submit" name="Submit" value="保存设置" class="bt_mouseout" onmouseover="this.className='bt_mouseover'" onmouseout="this.className='bt_mouseout'" style="height:21px;">
<br>
<br>
这里设置后，打开本站首页时，系统将会自动跳转到您设置的这个页面，而不用再将选择功能的操作；<br>
<br>
提示：这个页面应该是您最常用的页面。</td>
</tr>
<tr valign="middle">
<td height="15" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
<tr valign="bottom">
<td height="22" align="right" bgcolor="#EFEFEF"><strong>系统选项：</strong></td>
<td height="22" bgcolor="#EFEFEF"><a href="JavaScript:SetHome();">设为首页</a> | <a href="JavaScript:AddFav();">加入收藏</a> | <a href="#">推荐给朋友</a> | <a href="#NoUrl" onClick="location.href='?Action=MySearch';">我的查询记录</a> | <a href="#NoUrl" onClick="return ClearCookies();">清空记录</a></td>
</tr>
<tr valign="middle">
<td height="15" colspan="2" bgcolor="#FFFFFF"></td>
</tr>
<tr valign="middle">
<td height="25" align="right" bgcolor="#EFEFEF"><strong>帮助文件：</strong></td>
<td height="25" bgcolor="#EFEFEF"> </td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td height="7"><img src="images/bottom.gif" width="459" height="7"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?