其他小程序

开发平台：

VBScript

DEALEDIT.ASP：源码内容

							<% 
   'web-based info survey system
   'progarmmed for cabletron
   '      by Gary Tang,04 26,2001
%>
<!--#include file=dbconn.asp-->
<%
'dinfine variable
 dim name,email,company,address,zip,tel,id
'accept variable value from cilent-side
 name=trim(request.form("name"))
 email=trim(request.form("email"))
 company=trim(request.form("company"))
 address=trim(request.form("address"))
 zip=trim(request.form("zip"))
 tel=trim(request.form("tel"))
 id=trim(request("id"))
 page=trim(request("page"))
 joininvite=trim(request.form("joininvite"))
 
'replace ' with '' 
 name=replace(name,"'","''")
 email=replace(email,"'","''")
 company=replace(company,"'","''")
 address=replace(address,"'","''")
 zip=replace(zip,"'","''")
 tel=replace(tel,"'","''")
'creste sql statement and insert into database 
 sql="update invitedperson set name='"&name&"',email='"&email&"',company='"&company&"'"
 sql=sql+",address='"&address&"',zip='"&zip&"',tel='"&tel&"',joininvite="&joininvite&" where id="&id
 'response.write sql 
 conn.execute(sql)
 conn.close
 set conn=nothing
 
 response.redirect "surveyadm.asp?page="+page
%>

						