📄 jxc_function.asp
字号:
<%
Call CopyRight()
function CopyRight()
response.write "<!--"& vbCrLf
response.write "★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★"& vbCrLf
response.write "★ ★"& vbCrLf
response.write "☆ JXC系统 V 0.1 版 ☆"& vbCrLf
response.write "★ ★"& vbCrLf
response.write "☆ 网址：http://HI.BAIDU.com/ASPSOFT ☆"& vbCrLf
response.write "★ ★"& vbCrLf
response.write "☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆"& vbCrLf
response.write "-->"& vbCrLf
End Function
%>
<%
'//备用调用代码
Function Gaobei_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/gaobei_skin/gaobei_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
%>
<%
'//用户登陆调用
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'> <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>密 码</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 style='border: 0px;' name=Submit type='image' src='images/Gaobei_skin/denglu.gif' border='0'> "
'response.write "<a href='UserReg.asp'><img src='images/Gaobei_skin/zhuce.gif' border=0></a>"
response.write "<input type=submit name=Submit value='登 陆'> "
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>身 份：</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> "
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'> <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'> <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 " <font class=""title"">·"&rs("piccat_name")&"</font><br><br><br>"
else
response.write " <a href='?piccat_id="&rs("piccat_id")&"'>·"&rs("piccat_name")&"</a><br><br><br>"
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "当前没有分类 "
rs.close
end if
dim totalpic,Currentpage,totalpages,i
sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic order by pic_id DESC"
if request.querystring("piccat_id")<>"" then
sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic where piccat_id="&request.querystring("piccat_id")&" order by pic_id DESC"
elseif request("keyword")<>"" then
sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic where "&request("select")&" like '%"&request("keyword")&"%'order by pic_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
response.write "</TD></TR></TBODY></TABLE>"
'------------主要内容结束
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 Function
%>
<%
'//高贝友情连接链接调用
Function Gaobei_links()
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'> <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"<MARQUEE direction='up' id=Gaobei_links onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=150>"
sql="select top 6 fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<div align=center>"
Response.Write "<TABLE cellPadding=3>"
do while not rs.eof
Response.Write "<TR>"
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' title='"&rs("fl_name")&"'></a>" & vbCrLf
Response.Write "</TD>"
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=middle><font color=""#666666"">当前没有链接</font></TD></TR>"
end if
Response.Write "</TABLE>"
Response.Write "</div>"
Response.Write "</MARQUEE>"
'------------主要内容结束
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 Function
%>
<%
'//高贝投票调用
Function Gaobei_vote()
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'> <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 height=5></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<center>"
response.write "<IFRAME ID=""vote"" SRC=""Vote/index.htm"" FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""190"" HEIGHT=""180""></IFRAME> "& vbCrLf
response.write "</center>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td height=5></td>"
response.write "</tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -