untitled.asp

来自「网易论坛 发表新贴子」· ASP 代码 · 共 30 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--include file="opendb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>编辑贴子</title>
</head>

<body>
<%
id=request.Form("id")
title=request.Form("title")
content=request.Form("content")
answertime=date()+time()
strsql="update forum set title="&"'"&title&"'where id="&Id
my_conn.excute strsql
strsql="update forum set content="&"'"&content&"'where id="&Id
my_conn.execute strsql
strsql="update forum set createtime="&"'"& answertime&"'where id="&Id
my_conn.execute strsql
%>
<script language="vbscript">
msgbox"贴子已更新",48,"更新成功"
window.location="index.asp"
</script>

</body>
</html>