📄 user_skins.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="user_check.asp"-->
<%
dim ID,Action,mbtype
action=trim(request("action"))
ID=trim(Request("ID"))
%>
<html>
<head>
<title>木叶村免费个人主页http://www.x92.cn</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="木叶村网免费个人主页http://www.x92.cn">
<meta name="description" content="木叶村网免费个人主页http://www.x92.cn">
<link rel="stylesheet" href="admin/Admin_STYLE.CSS">
</head>
<%set rsskins=conn.execute("select userid,skinsid,vip from myweb_user where userid="&session("userid")&"")%>
<%userskinsid=rsskins("skinsid")%>
<%uservip=rsskins("vip")%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<div align="center">
<table width="100%" border="0" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="24" align=center class="title"><strong style="font-weight: 400">
<font color="#000000">网 站 风 格 管 理</font></strong></td>
</tr>
<tr class="tdbg">
<td width="787">栏目导航: 选择主页风格>>当前风格>><font color=red><% if userskinsid=0 then
response.write"没有风格"
else
set rs=conn.execute("select id,skin_name from myweb_myweb where id="&userskinsid&"")
response.write""&rs("skin_name")&""
rs.close
end if
%></font></td>
</tr>
</table>
</div>
<%
if action="" then
if uservip=true then
set rs=conn.execute("select id,skin_name,skin_write,type,vip,pic from myweb_myweb where type=false order by id desc ")
else
set rs=conn.execute("select id,skin_name,skin_write,type,vip,pic from myweb_myweb where type=false and vip=false order by id desc ")
end if%>
<table border="0" width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border" >
<tr class="tdbg" >
<td height="24" class="title" width="86%" align="center">
<strong style="font-weight: 400">
<font color="#000000">网 站 风 格 管 理</font></strong></td>
</tr>
<tr class="tdbg" >
<td width="100%" align="center" height="29" >
<table border="0" cellpadding="0" cellspacing="0" >
<tr>
<%
do while not rs.eof
%>
<td align="center" width=220 valign="middle">
<table border="0" width="65" cellspacing="0" cellpadding="0" height="140">
<tr>
<td align="center">
<a href="user_skins.asp?action=default&id=<%=rs("id")%>">
<img border="0" src="<%=rs("pic")%>" width="100" height="100"></a></td>
</tr>
<tr>
<td align="center">
<a href="user_skins.asp?action=default&id=<%=rs("id")%>"><%=rs("skin_name")%></a></td>
</tr>
</table>
</td>
<%
ka=ka+1
if ka=5 then
ka=0
response.write "</tr><tr>"
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
if action="default" then
set rsskin=conn.execute("select skin_other from myweb_myweb where id="&ID)
set rs=server.CreateObject("adodb.recordset")
rs.open "select user_other,skinsid from [myweb_user] where userid="&session("userid")&"",conn,1,3
'response.Write username
rs(0)=rsskin(0)
rs(1)=ID
set rsskin=nothing
rs.update
rs.close
response.write"<script>alert('风格选择成功');location.href='user_skins.asp';</script>"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -