update.asp

来自「大一下学期」· ASP 代码 · 共 24 行

<% Option Explicit %>
<% 
Dim varLink_id
varLink_id=Session("id")                           '从Session中获取要修改的网站编号
'如果上面的信息填全了，就修改记录，否则给出提示信息
If Request.Form("name")<>"" And Request.Form("reply")<>"" Then
	'以下连接数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("liuyan.mdb")&";Driver={Microsoft Access Driver (*.mdb)};" 
	 '以下修改记录
	Dim varName,varliuyan,varreply,strSql
	varName=Request.Form("name") 
	varliuyan=Request.Form("liuyan") 
	varreply=Request.Form("reply")
	StrSql="Update liuyan Set name='" & varName & "',liuyan='" & varliuyan & "',reply='" & varreply & "' Where id=" & varLink_id
	db.Execute(strSql)             
	Response.Redirect "index.asp"    
Else
	Response.Write "请将所有信息填写完整"
	Response.Write "<a href='index.asp'>重新修改</a>"
End If
%>