ASP在线修改的问题(请进!)(页 1) - WEB 开发 - 破釜沉舟论坛平面设计,Web 开发,手绘技术,Flash,灌水乐园

破釜沉舟论坛 » WEB 开发 » ASP在线修改的问题(请进!)

2006-10-14 11:19 wqxonline

ASP在线修改的问题(请进!)

请问一下,说是我的这个在虚拟目录下就能修改,而在支持ASP的非虚拟空间中发送数据到webggok.asp执行时出错,这是怎么回事啊,请懂的朋友帮帮忙,改一下能在asp空间中运行的代码,谢谢!

webgg.asp

<html>
<head>
<title>网站公告修改</title>
<meta http-equiv="Content-Type" c>
<style type="text/css">
body{font-size:9pt}
th{font-size:9pt}
td{font-size:9pt}
a{TEXT-DECORATION:none}
-->
</style>
</head>
<BODY  text=#ffffff  bgcolor="#000000" class=p150>
<p align="center">
<font color=yellow>◇网站公告修改◇</font></p>
<table border="1" align="center" bordercolorlight="#999999" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="4">    <form method="post" action="webggok.asp">
<tr>
<td>
<tr>
<td>
<textarea name="notify" cols="72" rows="11"><%=book%></textarea>
</td>
</tr>
<tr align="center">
<td>
<input type="submit" name="Submit" value="更改">
<input type="reset" name="reset" value="重写">
<input type="button" value="放弃" onClick=javascript:history.go(-1) name="button">
</td>
</tr>
</form>
</table>
<p align="center">修改说明:回车换行,支持HTML语法</p>
</body>
</html>

webggok.asp
<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=1000
Response.Expires=0
notify=RTrim(Request.Form("notify"))
notify=Replace(notify,chr(13)&chr(10),"<br>")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.opentextfile(server.mappath("zip.asp"),2,true)
thisfile.WriteLine "<" & "%"
thisfile.WriteLine "const book=" & chr(34) & notify & chr(34)
thisfile.WriteLine "%" & ">"
thisfile.close
Set thisfile=nothing
Set fs=nothing%>
<html>
<head>
<title>更改公告信息</title>
<meta http-equiv="Content-Type" c>
<style type="text/css">
body{font-size:9pt}
th{font-size:9pt}
td{font-size:9pt}
a{TEXT-DECORATION:none}
-->
</style>
</head>
<BODY text=#ffffff  bgcolor="#000000" link="#FFFF00" vlink="#FFFF00" alink="#00FFFF" class=p150>
<p align="center">已经将公告信息更改为： <a href="../index.asp">返回公告</a>  <a href="webgg.asp">重新修改</a></p>
<table width="60%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" cellpadding="6">
<tr>
<td class=p150><%=notify%></td>
</tr>
</table>
</body>
</html>

zip.asp
<%
const book="欢迎进入！<br>网站建设中！<br>联系QQ:9818550"
%>

2006-10-16 13:39 xiaocao-x

出什么错？

2006-10-17 18:12 wqxonline

回复 #2 xiaocao-x 的帖子

点修改时就一个出错页面啊

页: [1]

查看完整版本: ASP在线修改的问题(请进!)