📄 admrevise1.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="ADOVBS.INc" -->
<%
function fixQuotes(theString)
fixQuotes=Replace(theString,"'","''")
end function
session("3508")="aa"
id=request("id")
'response.write replace(fixQuotes(server.htmlencode(trim(Request.Form("neirong")))),vbcrlf,"<br> ")
'response.end
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from news where newsid="& id
rs.open sqlstr,conn,2
if rs.eof then
response.write "OK!"
response.end
end if
if request("Submit2")<>"" then
rs.delete
rs.movefirst
else
rs("title")=request("biaoti")
rs("accessory")=request("fubiaoti")
rs("key1")=request("gjz1")
rs("key2")=request("gjz2")
rs("reporter")=request("zuozhe")
rs("lookfrom")=request("zhaizi")
rs("content")= replace(fixQuotes(server.htmlencode(trim(Request.Form("neirong")))),"ê","<br> ")
rs.update
rs.movefirst
end if
rs.close
set conn=nothing
%>
<html>
<head>
<title>修改新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
</body>
</html>
<script language=javascript>
<!--
alert("修改成功！");
window.location.href="ad.asp";
-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -