📄 link_edit.asp

📁 java_blog是一个非常好的blog
💻 ASP
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' zhuzhu 1.0 Free        Power by zgrq.com
' Email:ringsbot@163.com       OICQ：500985
' 网站: http://www.zgrq.com   演示：http://www.zgrq.com
'**********************************************************
if session("admin")<>"" and Request.Cookies("admin")<>"" then%>
<!--#include file="x_conn.asp"-->
<%
id=Request.QueryString("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [link] where id="&id
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
</head>
<body>
<form action="" method="post" name="form1">
  <table width="310" border="0" cellpadding="2" cellspacing="0">
    <tr> 
      <td width="36"><div align="right">站名：</div></td>
      <td width="266"> <input name="title" type="text" class=xndyk size="20" maxlength="40" value="<%=rs("title")%>"> 
        <font color="#FF0000">*</font></td>
    </tr>
    <tr> 
      <td><div align="right">网址：</div></td>
      <td> 
		<input name="web" type="text"  class=xndyk id="user" value="<%=rs("web")%>" size="20" maxlength="40"> 
      </td>
    </tr>
    <tr valign="top"> 
      <td>LOGO：</td>
      <td> 
		<input name="logo" type="text"  class=xndyk id="user0" value="<%=rs("LOGO")%>" size="20" maxlength="40"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">简介<a>：</a></div></td>
      <td><textarea name="jianjie" cols="38" rows="6"  class=xndyk id="text"><%=rs("jianjie")%></textarea> 
        <font color="#FF0000"> *</font></td>
    </tr>
    <tr align="center"> 
      <td>　</td>
      <td><div align="left"> 
          <input type="submit" name="ok" value="提 交 修 改"  class=xndyk>
          <input type="reset" name="Submit" value="重 填"  class=xndyk>
        </div></td>
    </tr>
  </table>
  </form>
</body>
</html>
<%
set rs=server.createobject("adodb.recordset")

title=request("title")
web=request("web")
logo=request("logo")
jianjie=request("jianjie")
rs.open sql,conn,2,3
rs("title")=title
rs("web")=web
rs("logo")=logo
rs("jianjie")=jianjie
if request("ok")<>"" then
rs.update
rs.close
set rs=nothing

response.redirect "link.asp"
end if
%>

<%
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' zhuzhu 1.0 Free        Power by zgrq.com
' Email:ringsbot@163.com       OICQ：500985
' 网站: http://www.zgrq.com   演示：http://www.zgrq.com
'**********************************************************
%>
⌨️ 快捷键说明

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