step1update.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<%
webid= replace(Request.Form("webid"),"'", "''")
name =  replace(Request.Form("wname"),"'", "''")
URL =  replace(Request.Form("url"),"'", "''")
des = replace(Request.Form("des"),"'", "''")
key = replace(Request.Form("keyword"),"'", "''")
email = replace(Request.Form("email"),"'", "''")
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
 conn.Execute("UPDATE link2  set Name='" & name & "',URL ='" & URL & "',description ='" & des & "',keyword ='" & key & "',email ='" & email & "', badlink=0 where ID =" & webid)
	sql = "select * from cat order by ID"
	set rs = conn.Execute (sql)
%>
第二步 : 移动到新类别当点击类别下方.  
<br>
<table border="0" width="300">
	<% 
	Do while NOT rs.EOF 
	ColNum = 1 
	 Do while ColNum < 3
	%>			
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="step2update.asp?CatID=<%=rs("id")%>&urlid=<%=webid%>"><%=rs("cat")%></a></TD>	
<% 
if NOT rs.EOF then 
 rs.MoveNext 
end if 
 ColNum = ColNum + 1 
if NOT rs.EOF then 
%>
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="step2update.asp?CatID=<%=rs("id")%>&urlid=<%=webid%>"><%=rs("cat")%></a></TD>
<% 
end if
ColNum = ColNum + 1 
Loop 
%>
</TR>
<% 
if NOT rs.EOF then  
rs.MoveNext  
end if 
 Loop 
 %>
	</TABLE>
	<% rs.close
	Conn.Close
	set Conn = nothing
	%>      
	<br>
<A HREF="main.asp">请不要移动到新类别并回到管理主页面</A>
<br>