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

开发平台：
DOS

addinforms.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"), "addnewfig")
		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
%>
<%
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function
 if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from inform",conn,1,3
rs.addnew
rs("title")=trim(request("newsname"))
rs("newstype")=request.form("anclassid")
rs("content")=trim(request("newscontent")) 
rs("updatetime")=now()
rs("viewcount")=0
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('添加成功！');window.location.href='manageinforms.asp';</script>"
response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
    <td  align="center" background="../images/admin_bg_1.gif" height="25"><b><font color="#ffffff">添加商城资讯</font></b></td>
</tr>
<tr> 
<td valign="top"> 
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FBF4F4">
        <form name="form1" method="post" action="addinforms.asp?action=save" onSubmit="return checkdata()" onReset="return ResetForm();">
          <tr > 
            <td width="30%" align="right">资讯主题：</td>
            <td width="70%" style="PADDING-LEFT: 10px"> <input name="newsname" type="text" id="newsname" size="30"> 
            </td>
          </tr>
          <tr > 
            <td width="30%" align="right">资讯分类：</td>
            <td style="PADDING-LEFT: 10px"> 
              <%
			set rs=server.createobject("adodb.recordset")
rs.open "select * from zixunlei  ",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加分类"
response.end
else
%>
              <select name="anclassid" size="1" id="select2" >
                <%
 
do while not rs.eof
response.write  "<option value="&rs("danweiname")
response.write ">"&trim(rs("danweiname"))&"</option>"    
rs.movenext
loop
end if
rs.close
%>
              </select> &nbsp;</td>
          </tr>
          <tr > 
            <td align="right" valign="top">资讯内容：</td>
            <td bgcolor="#fbf4f4"><input name="newscontent" type="hidden" id="newscontent" value=""> 
              <IFRAME ID="newscontent" SRC="editubb/ewebeditor.asp?id=newscontent&style=standard" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME></td>
          </tr>
          <tr > 
            <td height="30"></td>
            <td height="30" style="PADDING-LEFT: 10px"> <input type="submit" name="Submit" value="提交发表" onClick="document.form1.Content.value = frames.message.document.body.innerHTML;"> 
              <input onClick="ClearReset()" type=reset name="Clear" value="重新填写"> 
              <input type="hidden" name="Content" value=""> </td>
          </tr>
        </form>
      </table>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->
</body>
</html>

						