editurl.asp

来自「这是一个用SQL Server和ASP开发的搜索引擎网站」· ASP 代码 · 共 28 行

<br>
<%
url = Request.QueryString("id")
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from link2 where ID =" & url)
%>
<form action="step1update.asp" method="post">
<input type="hidden" name="webid" value="<%=url%>">
  网站名称 : 
  <input type="text" value="<%=RS("Name")%>" name="wname" size="25">
<br>
  网站地址 :<input type="text" value="<%=RS("URL")%>" name="URL" size="25" id=text1 name=text1> 
  <br>
  介绍 : 
  <textarea name="des" cols=50 rows=4><%=RS("description")%></textarea>
	<br>
  关键字 : 
  <textarea name="keyword" cols=50 rows=4><%=RS("keyword")%></textarea>
	<br>email :<input type="text" value="<%=RS("email")%>" name="email" size="25">
<br> <input type="submit" value="更新第一步"><input type="reset" value="cancle"></form>
<%
RS.Close
conn.Close
set conn = nothing
%>