WEB源码(ASP,PHP,...)

开发平台：

DOS

savehelp.asp：源码内容

							<!--#include file="conn.asp"-->
<%
dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "othfig")
		if cls <= 0 then
	%>
		<script language="javascript">
			if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
			  location.href="login.asp";
			else
			  location.href="index.asp";
		</script>
	<%
		end if
	end if
end if
%>
<%dim action,html
html=request("html")
action=request.QueryString("action")
Content=Request.Form("Content")
'将里面的链接换成本地链接
 aa="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("path_info")
 'response.write aa&"<br>"
 'bb=request.servervariables("http_referer")
 'response.write aa&"<br>"
 'response.write bb&"<br>"
 'response.end
 'aa= mid(aa,1,len(aa)-12)
 aa= mid(aa,1,len(aa)-16)		'16=admin/savexx.asp
 'response.write aa&"<br>"
 'response.write bb&"<br>"
 'response.end
content=replace(content,aa,"")
conn.execute("update webinfo set "&action&"='"&content&"'")
response.Write "<script language=javascript>alert('修改成功');window.location.href='tab.asp';</script>"
response.End
%>

						