其他小程序

开发平台：

VBScript

dealjoin.asp：源码内容

							<!--include file="dbconn.asp"-->
<% dim eventid,remark,sql,myconn
 set myconn = server.createobject("ADODB.Connection")
 myconn.open "PROVIDER=SQLOLEDB;DATA SOURCE=hermes1;UID=ahao;PWD=hfglhy;DATABASE=itoevent"
  eventid=trim(request("eventid"))
  remark=trim(request("remark"))
  sql="insert into eventjoin values("&eventid&","&session("userid")&",'"&remark&"',convert(datetime,getdate()))"
  myconn.execute(sql)
%>
<script language="javascript">
self.close()
</script>
  

						