save.asp

这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%     
if request("note")="" then
	    response.write "&#x600E;&#x4E48;&#x53EF;&#x4EE5;&#x6CA1;&#x5185;&#x5BB9;&#x5462;!"
	    response.end
end if
if request("name")="" then
	    response.write "&#x51FA;&#x9519;&#xFF0C;&#x6635;&#x79F0;&#x4E0D;&#x80FD;&#x4E3A;&#x7A7A;!"
	    response.end
end if
%>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<%
if keyWord(name)>0 then response.redirect "ping.asp?articleid="&request("zuti")&""
if keyWord(note)>0 then response.redirect "ping.asp?articleid="&request("zuti")&"" %>
<%set rs=Server.CreateObject("ADODB.Recordset")
sql="update article set Nkey=Nkey+1 where articleID="&request("zuti")
rs.open sql,conn,1,1 %>
<%
if request("types")="add" then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from sheet"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("note")=request("note")
rs("time")=now()
rs("zuti")=request("zuti")
rs("shouji")=pno
rs.update
rs.close
response.redirect "ping.asp?articleid="&request("zuti")&""
end if
%>