⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 user_placard.asp

📁 个人博客
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="user_chkpass.asp"-->
<!--#include file="inc/usercode.asp"-->
<!--#include file="inc/function.asp"-->
<%
if CheckUserLogined()=False then
	response.Redirect "user_login.asp"
end if
dim action,rs,userplacard
Action=trim(request("Action"))
if action="saveconfig" then
	userplacard=request("userplacard")
	set rs=server.CreateObject("adodb.recordset")
	if  CheckUserLogined()=true then	
		rs.open "select userplacard from [user] where username='"&username&"'",conn,1,3
		rs("userplacard")=debadstr(userplacard)
		rs.update
	end if
	rs.close
end if
set rs=conn.execute("select userplacard from [user] where username='"&username&"'")
%>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css"> 
<body class="bgcolor">
<br>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr> 
    <td height="25" class="title"><div align="center"><strong><font color="#FFFFFF">修改首页公告</font></strong></div></td>
  </tr>
  <tr class="tdbg"> 
    <td><form name="form1" method="post" action="user_placard.asp" onSubmit="submits(); ">
      <div align="center" > 
                <INPUT type="hidden" name="userplacard" value="<%
				if rs("userplacard")<>"" then
					response.Write  Server.HtmlEncode(rs("userplacard"))
				else
					response.Write "   "
				end if
				%>" id='edit'>
                <!--#include file="edit.asp"-->
                <br>
				 <input name="Action" type="hidden" id="Action" value="saveconfig"> 
                <input type="submit" name="Submit" value="提交修改">
              </div>
      </form></td>
  </tr>
</table>
<%
set rs=nothing
call closeconn()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -