数据库编程

开发平台：
ASP/ASPX

ClassAdd.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
response.buffer=true	
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
MF_Default_Conn
'session判断
MF_Session_TF 
if not MF_Check_Pop_TF("WS002") then Err_Show
%>
<html>
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="javascript">
function checknum(obj){
if (isNaN(obj.value)){
alert("格式不对!");
obj.value="0";
obj.focus();
}
}
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table"> 
  <tr> 
    <td align="left" colspan="2" class="xingmu">留言系统分类管理&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="../../help?Lable=Message" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td> 
  </tr>
  <tr>
  	<td ><a href="ClassManager.asp">管理首页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="ClassAdd.asp">添加栏目</a></td>
  </tr>
 </table>
<form name="ClassAdd" action="?Act=Add" method="post">
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table"> 
<tr>
	<td class="hback" width="10%">栏目名称</td>
	<td class="hback" width="90%"><input type="text" name="ClassName" size="40">
	<font color="red"> *</font></td>
</tr>
<tr>
	<td class="hback">栏目说明</td>
	<td class="hback"><input type="text" name="ClassExp"	 size="40">
	<font color="red"> *</font></td>
</tr>
<tr>
	<td class="hback">栏目排序</td>
	<td class="hback"><input name="pid" type="text" onKeyUp="checknum(this)" value="0" size="40">
	  <font color="red">*</font>(数字越大,栏目排序越靠前)</td>
</tr>
<tr>
	<td class="hback">&nbsp;</td>
	<td class="hback"><input type="Submit" name="sumbit" value="添加">&nbsp;&nbsp;<input type="Reset" name="reset" value="重置"></td>
</tr>
</table>
</form>
<%
Dim ClassName,ClassExp,Pid,strShowErr
 If NoSqlHack(Request.QueryString("Act"))="Add" Then
 	ClassName=NoHtmlHackInput(trim(Replace(Request.form("ClassName"),"'","")))
	ClassExp=NoHtmlHackInput(Trim(Replace(Request.form("ClassExp"),"'","")))
	Pid=trim(Request.Form("pid"))
	If ClassName="" Then
		strShowErr = "<li>栏目名称不能为空!</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	End If
	if not Isnumeric(Pid) then
		strShowErr = "<li>栏目排序填写不对!</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	else
		Pid=iNT(AbS(Pid))
	end if	
	Conn.execute("Insert into FS_WS_Class(ClassID,ClassName,ClassExp,Pid,Author) values('"&GetRamCode(15)&"','"&ClassName&"','"&ClassExp&"','"&Pid&"','"&session("Admin_Name")&"')")
		strShowErr = "<li>添加成功</li>"
		Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=BBS/ClassManager.asp")
		Response.end
 End If
 Set Conn=nothing
%>
</body>
</html>

						