2016南海危机军演视频:asp语法错误到哪里了

来源：百度文库编辑：查人人中国名人网时间：2024/05/02 17:07:47

<%
IF POPWrite<>"True" Then
IF Session("PROADMIN")<>"True" Then
Response.Redirect "Login.asp"
Response.End
End IF
End IF

IF Request("edit")<>"" and Session("PROADMIN")="True" Then
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1 = "Select * From ruanjian where id="&Request("edit")
rs1.open sql1,conn
’Rs.Close
’Set Rs=Nothing
’Call CloseDB
end if

IF Request("POST")<>"" Then
Call WriteData
End IF

Function WriteData
if trim(request.form1("title"))="" then
response.write "<script language=javascript>"
response.write "alert(’请填写名称’);"
response.write "</script>"
response.write "<script language=javascript>location=’javascript:history.back(1)’</script>"
Response.End
end if
IF trim(request.form1("content"))="" or trim(request.form1("url"))="请填写软件软件内容" Then
Response.Write "<font color=red>请填写软件内容</font> <a href=write.asp>返回</a>"
response.end
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select title,url,content From ruanjian where id="&Request("edit")
Rs.Open Sql,conn,1,3
Rs("title")=Request("title")
Rs("url")=Request("url")
Rs("content")=Request("content")
’Rs("date")=year(now)&"-"&month(now)&"-"&day(now)
Rs.Update
Rs.Close
Set Rs=Nothing
Call CloseDB

Response.Redirect "index.asp"

End IF
End Function
%>
<html>
<head>
<title>编辑软件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<br><br><br>
<form name="form1" method="post" action="">
<input type="hidden" name="POST" value="True">
<table width="477" border="1" align="center" cellpadding="1" cellspacing="1">
<tr>
<td colspan="2"><table width="100%"><tr><td>本软件发表于<%=rs1("date")%>

<td width="100" align="right">[<a href=index.asp>返回首页</a>]</td></tr></table></td>
</tr>
<tr>
<td>软件名字<input name="title" size=30 value="<%=rs1("title")%>">
</td></tr>
<tr>
<td>软件地址<input name="url" size=50 value="<%=rs1("url")%>"></td>
</tr>
<tr>
<td width="384">
<textarea name="content" cols="70" rows="9"><%=rs1("content")%></textarea>
</td>
<td width="86"> </td>
</tr>
<tr>
<td colspan="2">
<input style="border:1pt dotted green;background-color:#ffffff;width=60px" type="submit" value="编辑好了">
<input style="border:1pt dotted green;background-color:#ffffff;width=60px" type="reset" value="重新写" name="重置">
</td>
</tr>
</table>
</form>
<%rs1.close
set rs1=nothing
call closedb
%>
<br><br>
</body>
</html>

或者到 http://www.blueidea.com/bbs 去问吧

错误不给提示，不看

asp语法错误到哪里了 asp语法错误 ASP语法错误 ASP语法错误为什么啊 asp FROM 子句语法错误。 asp提交叶面！语法错误 ASP网页提示语法错误语法错误 (操作符丢失) asp asp编程：老是提示语法错误，怎么解决？ ASP的问题。user附近有语法错误？？