xg2.asp

基于WEB页面的新闻发布系统+毕业论文:实现新闻的显示

<% Option Explicit %>
<!--#include file="cn.asp"-->
<% 
Dim varLink_id
varLink_id=Session("link_id")                           '从Session中获取要修改的网站编号
'如果上面的信息填全了，就修改记录，否则给出提示信息
If Request.Form("标题")<>"" And Request.Form("作者")<>"" And Request.Form("内容")<>"" Then
	 '以下修改记录
	Dim varName,varAuthor,varIntro,strSql
	varName=Request.Form("标题") 
	varAuthor=Request.Form("作者")
	varIntro=Request.Form("内容")
	'StrSql="Update link Set 标题='" & varName & "',作者='" & varAuthor & "',内容='" & varIntro & "' Where link_id=" & varLink_id
    StrSql="Update use1 Set 标题='" & varName & "',作者='" & varAuthor & "',内容='" & varIntro & "' Where 编号=" & varLink_id
	cn.Execute(strSql)             
	Response.Redirect "bj.asp"    
Else
	Response.Write "请将所有信息填写完整"
	Response.Write "<a href='bj.asp'>重新修改</a>"
End If
%>