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

📄 news_mang.asp

📁 ☆☆网吧客户留言簿☆☆ 管理用户名和密码都是:admin 演示:http://www39.websamba.com/51rose/netbarbook/
💻 ASP
字号:

<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<%
	Dim zsb_auth, hasAuth
	hasAuth = False
	zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
	For Each auth In zsb_auth
		If ( auth = "news" ) Then
				hasAuth = True
			Exit For
		End If
	Next
	
	If hasAuth = false Then
		Response.Write("<script language=javascript>alert('对不起,你没有权限,请联系超级管理员!');history.back(-1);</script>")
	End If
%>
<%
 dim d
 set rs=server.createobject("ADODB.recordset")
 strsql="select * from news"
 rs.open strsql,conn,1,3
 if not rs.eof then
 'while not rs.eof
 'if Trim(rs("timeflag"))=Trim(request.querystring("timflg")) then
%>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=<%=Char_Set%>">
	<title>更改公告页面</title>
	<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
<script src="http://www.zhisi.net/gstat.asp?stat=lguest"></script>
</head>

<body>
<table width="399" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td height="20">&nbsp;</td></tr>
  <tr>
    <td align="center" height="30" class="text_header"  style="background-image:url(<% =GBSkin %>/guest_top.gif) ">&nbsp;<b>更改公告&nbsp;&nbsp;&nbsp;</b></td>
  </tr>
</table>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="mytext" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
  <form action="news_save.asp?pn=<% =Trim(Request("pn")) %>" method="post">
  <tr>
    <td height="25" align="right">昵称:</td>
    <td><input name="name" type="text" class="input_common" style="width: 160px; height:18px;" id="name" value="<% =rs("name") %>"></td>
    <td width="190" rowspan="5" align="center"><img border="0" src="images/<% =rs("headpic") %>.gif" alt="" id="faceid"></td>
  </tr>
  <tr>
    <td width="44" height="25" align="right">性别:</td>
    <td width="166"><% sex=rs("sex") %>
  	  <% if sex="帅哥" then %>
      &nbsp;帅哥:<input name="sex" type="radio" value="帅哥" checked>
	  靓女:<input type="radio" name="sex" value="靓女">
	  <% else %>
	  &nbsp;帅哥:<input name="sex" type="radio" value="帅哥">
	  靓女:<input type="radio" name="sex" value="靓女" checked>
	  <% end if %>
     </td>
    </tr>
  <tr>
    <td height="25" align="right">来自:</td>
    <td><input name="address" type="text" id="address2" class="input_common" style="width: 160px; height:18px;"  value="<% =rs("address") %>" maxlength="4"></td>
    </tr>
  <tr>
    <td height="25" align="right">邮箱:</td>
    <td><input name="email" type="text" class="input_common" style="width: 160px; height:18px;" id="email"  value="<% =rs("email") %>"></td>
    </tr>
  <tr>
    <td height="25" align="right">主页:</td>
    <td><input name="homepage" type="text" class="input_common" style="width: 160px; height:18px;" id="homepage"  value="<% =rs("homepage") %>"></td>
    </tr>
  <tr>
    <td height="25" align="right">OICQ:</td>
    <td><input name="oicq" type="text" class="input_common" style="width: 160px; height:18px;" id="oicq" value="<% =rs("Oicq") %>" ></td>
    <td width="190" align="center">头像:
      <select name="headpic" id="headpic" onChange="document.images['faceid'].src='images/'+options[selectedIndex].value+'.gif';">
          <option value="<% =rs("headpic") %>" selected>
          <% =rs("headpic") %>
          </option>
          <option value="pic1">pic1</option>
          <option value="pic2">pic2</option>
          <option value="pic3">pic3</option>
          <option value="pic4">pic4</option>
          <option value="pic5">pic5</option>
          <option value="pic6">pic6</option>
          <option value="pic7">pic7</option>
          <option value="pic8">pic8</option>
          <option value="pic9">pic9</option>
          <option value="pic10">pic10</option>
          <option value="pic11">pic11</option>
          <option value="pic12">pic12</option>
          <option value="pic13">pic13</option>
          <option value="pic14">pic14</option>
          <option value="pic15">pic15</option>
          <option value="pic16">pic16</option>
          <option value="pic17">pic17</option>
          <option value="pic18">pic18</option>
          <option value="pic19">pic19</option>
          <option value="pic20">pic20</option>
      </select>
	</td>
  </tr>
  <tr>
    <td height="25" align="right">时间:</td>
    <td colspan="2"><input name="timflg" class="input_common" style="width: 160px; height:18px;" type="text" id="timflg" value="<% =rs("Date") +"&nbsp;"+rs("Time") %>" size="30"></td>
  </tr>
  <tr>
    <td height="25" align="right">主题:</td>
    <td colspan="2"><input name="headline" class="input_common" style="width: 350px; height:18px;" type="text" id="headline"  value="<% =rs("Title") %>" size="51"></td>
  </tr>
  <tr>
    <td align="right">内容:</td>
    <td colspan="2"><textarea name="content" class="input_common" cols="55" rows="6" id="content"><% =HEncode(rs("content")) %></textarea></td>
  </tr>
  <tr align="center">
    <td height="40" colspan="3" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
	<input type="button" value="返  回" onClick="javascript:history.back(-1);" class="button_common" style="width: 80px; height:18px;">&nbsp;
	<input name="reset" type="reset" class="button_common" style="width: 80px; height:20px;" id="reset" value="重新填写">
&nbsp;&nbsp;<input name="Submit" type="submit" class="button_common" style="width: 80px; height:20px;" id="Submit" value="提交更改结果"></td>
    </tr>
  </form>
</table>
<%
 end if
 'rs.movenext
 'wend
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

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