public.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 242 行
ASP
242 行
<%
dim rs_Falg
'==========================================================================会员等级下拉菜单
sub Falg_A()
sql="select * from Flag where LagID=0 order by Flagorder"
set rs_Falg=server.CreateObject("adodb.recordset")
rs_Falg.open sql,conn,1,1
response.write "<select name=Flag class='box1'>"
if not(rs_Falg.eof and rs_Falg.bof) then
while not rs_Falg.eof
%>
<option value="<%=rs_Falg("Flag")%>" <%if rs_Falg("Flag")=Flag then %>selected<%end if%>><%=rs_Falg("title")%></option>
<%
Set rs_Falg1 = Conn.Execute("Select * From Flag where lagID=1 and Flag like '"& rs_Falg("Flag") &"%' order By Flagorder")
if not(rs_Falg1.eof and rs_Falg1.bof) then
while not rs_Falg1.eof
%>
<option value="<%=rs_Falg1("Flag")%>" <%if rs_Falg1("Flag")=Flag then %>selected<%end if%>>┣<%=rs_Falg1("title")%></option>
<%
rs_Falg1.movenext
wend
end if
rs_Falg1.close
set rs_Falg1=nothing
rs_Falg.movenext
wend
end if
response.write "</select>"
rs_Falg.close
set rs_Falg=nothing
end sub
'=========
'---0=-=====================================会员跳转菜单
sub Falg_C()
%>
<select name="select" class='box1' onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option selected>选择会员级别……</option>
<option value="<%=Flagstr%>">显示全部</option>
<%
sql="select * from Flag where LagID=0 order by Flagorder"
set rs_Falg=server.CreateObject("adodb.recordset")
rs_Falg.open sql,conn,1,1
if not(rs_Falg.eof and rs_Falg.bof) then
while not rs_Falg.eof
%>
<option value="<%=Flagstr%>?FlagID=<%=rs_Falg("Flag")%>"><%=rs_Falg("Title")%></option>
<%
rs_Falg.movenext
wend
end if
rs_Falg.close
set rs_Falg=nothing
%>
</select>
<%
END SUB
'==================================================================
sub Save_err()
response.write " <link href=Images/Admin.css rel=stylesheet type=text/css>"
response.write " <table width=""98%"" height=""40"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""> <tr>"
response.write " <tr>"
response.write " <td><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" bgcolor=""#D8D8D8""> <tr>"
response.write " <td height=""30"" align=""left"" bgcolor=""ffffff""><table width=""100%"" height=""100%"" border=""0"" cellpadding=""3"" cellspacing=""0"">"
response.write " <td width=""5%"" bgcolor=""eeeeee"" align=""center""><img src=""Images/1.gif"" width=""13"" height=""12""></td><td bgcolor=""eeeeee"" width=""95%""><span class=""style2"">管理中心 >>></span></td></tr>"
response.write " </table></td>"
response.write " </tr></table></td></tr></table>"
response.write " <table width=""98%"" height=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#D8D8D8"">"
response.write " <tr>"
response.write " <td valign=""top"" bgcolor=""ffffff""><p> </p><br>"
response.write " <table width=""50%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr>"
response.write " <td align=""left"" bgcolor=""ffffff""></td>"
response.write " </tr><tr>"
response.write " <td height=""40"" align=""left"" bgcolor=""ffffff"">"
response.write " "&Save_title&"<br>"
response.write "·<a href=javascript:history.go(-1)>点这里返回上一页</a>"
response.write "</td>"
response.write " </tr></table> "
response.write " </td></tr></table>"
response.end
end sub
'------------------------------------------------------------------
sub Save_ok()
response.write " <link href=Images/Admin.css rel=stylesheet type=text/css>"
response.write " <table width=""98%"" height=""40"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""> <tr>"
response.write " <tr>"
response.write " <td><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" bgcolor=""#D8D8D8""> <tr>"
response.write " <td height=""30"" align=""left"" bgcolor=""ffffff""><table width=""100%"" height=""100%"" border=""0"" cellpadding=""3"" cellspacing=""0"">"
response.write " <td width=""5%"" bgcolor=""eeeeee"" align=""center""><img src=""Images/1.gif"" width=""13"" height=""12""></td><td bgcolor=""eeeeee"" width=""95%""><span class=""style2"">管理中心 >>> 操作信息</span></td></tr>"
response.write " </table></td>"
response.write " </tr></table></td></tr></table>"
response.write " <table width=""98%"" height=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#D8D8D8"">"
response.write " <tr>"
response.write " <td valign=""top"" bgcolor=""ffffff""><p> </p><br>"
response.write " <table width=""50%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr>"
response.write " <td align=""left"" bgcolor=""ffffff""> </td>"
response.write " </tr><tr>"
response.write " <td height=""40"" align=""left"" bgcolor=""ffffff"">"
response.write " "&Save_title&"<br>"
IF Save_BackUrl = "" or Isnull(Save_BackUrl) Then
response.write "·2秒钟后自动返回上一页"
response.write "<meta http-equiv=""refresh"" content=""1;url="&request.servervariables("http_referer")&""">"
Else
response.write "·2秒钟后自动返回"& Save_BackName &""
response.write "<meta http-equiv=""refresh"" content=""1;url="& Save_BackUrl &""">"
End IF
response.write "</td>"
response.write " </tr></table> "
response.write " </td></tr></table>"
response.end
end sub
sub page_top()
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end sub
Sub Page_See()
IF Not IsNumeric(iCount) or iCount = "" Then iCount = 0
IF Not IsNumeric(iPageSize) or iPageSize = "" Then iPageSize = 0
IF Not IsNumeric(Page) or Page = "" Then Page = 0
IF Not IsNumeric(maxpage) or maxpage = "" Then maxpage = 0
Response.Write(" 总记录<Font Color=ff6600>"& iCount &"</font> 每页显示<Font Color=ff6600>"& iPageSize &"</font> 当前<Font Color=ff6600>"& Page &"/"& maxpage &"</font>")
End Sub
Sub PageControl(iCount,pagecount,page)
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End IF
Next
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0>")
Response.Write("<form name=form_page method=post action=>")
Response.Write("<tr>")
Response.Write("<td align=right>")
if Not IsNumeric(page) or page="" then
page=1
End if
if page<=1 then
Response.Write ("<img src=""Images/page_first_1.gif"" border=""0"">")
Response.Write ("<img src=""Images/page_front_1.gif"" border=""0"">")
else
Response.Write("<A HREF=" & action & "?" & Page_links & "Page=1><img src=""Images/page_first.gif"" border=""0""></A>")
Response.Write("<A HREF=" & action & "?" & Page_links & "Page=" & (Page-1) & "><img src=""Images/page_front.gif"" border=""0""></A>")
end if
if page>=pagecount then
Response.Write ("<a><img src=""Images/page_next_1.gif "" border=""0""></a>")
Response.Write ("<a><img src=""Images/page_lastly_1.gif "" border=""0""></a>")
else
Response.Write("<A HREF=" & action & "?" & Page_links & "Page=" & (Page+1) & "><img src=""Images/page_next.gif "" border=""0""></A>")
Response.Write("<A HREF=" & action & "?" & Page_links & "Page=" & pagecount & "><img src=""Images/page_lastly.gif "" border=""0""></A>")
end if
Response.Write("<input name=page type=text id=page value="& Page &" class=boxhome size=2 maxlength=9>")
Response.Write("<input type=submit name=Submit value=GO>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</form>")
Response.Write("</table>")
End Sub
function HTMLEncodeStr(fString)
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncodeStr = fString
end function
function KeyArr(KeyString)
KeyString = Rtrim(LTrim(KeyString))
KeyString = replace(KeyString,"'"," ")
KeyString = replace(KeyString,"”"," ")
KeyString = replace(KeyString,"："," ")
KeyString = replace(KeyString,","," ")
KeyString = replace(KeyString,"`"," ")
KeyString = replace(KeyString,"~"," ")
KeyString = replace(KeyString,"^"," ")
KeyString = replace(KeyString,"("," ")
KeyString = replace(KeyString,")"," ")
KeyString = replace(KeyString,"（"," ")
KeyString = replace(KeyString,"）"," ")
KeyString = replace(KeyString,"+"," ")
KeyString = replace(KeyString,"_"," ")
KeyString = replace(KeyString,"-"," ")
KeyString = replace(KeyString,"="," ")
KeyString = replace(KeyString,"\"," ")
KeyString = replace(KeyString,"/"," ")
KeyString = replace(KeyString,"、"," ")
KeyString = replace(KeyString,"["," ")
KeyString = replace(KeyString,"]"," ")
KeyString = replace(KeyString,"{"," ")
KeyString = replace(KeyString,"}"," ")
KeyString = replace(KeyString,"。"," ")
KeyString = replace(KeyString,"|"," ")
KeyArr = KeyString
end function
%>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?