数据库编程

开发平台：
ASP/ASPX

Special_add.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="lib/cls_main.asp" -->
<% 'Copyright (c) 2006 Foosun Inc. Code by awen
Dim Conn,User_Conn
MF_Default_Conn
MF_User_Conn
'session判断
MF_Session_TF
'Call MF_Check_Pop_TF("NS_Class_000001")
'得到会员组列表
Dim Fs_news,NS_SpecialCNameValure,sRootDir,strShowErr ,obj_Special_Rs,str_newsDir,str_CurrPath
set Fs_news = new Cls_News
Fs_News.GetSysParam()
MF_GetUserGroupID  
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
if Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
End if
if Fs_news.newsDir<>"" then str_newsDir = "/"+Fs_news.newsDir else str_newsDir=""
''+++++++++++++++++++
'变量定义
Dim lng_SpecialID,str_Templet ,str_SpecialCName,str_SpecialEName,str_SpecialSize,str_SpecialContent,str_naviPic
Dim str_SavePath,str_ExtName,bit_isLock,dtm_Addtime,int_sPoint,lng_GroupID,lng_AdminID
''+++++++++++++++++++
if Request.QueryString("Action")="add" then
	if not Get_SubPop_TF("","NS026","NS","specail") then Err_Show
	str_SpecialCName = ""
	str_SpecialEName = ""
	str_SpecialSize = "150,120"
	str_SpecialContent = ""
	str_SavePath = Fs_news.GetSysParamDir & "special"
	str_Templet = Replace("/"&G_TEMPLETS_DIR&"/NewsClass/Special.htm","//","/")
	str_ExtName = "html"  ''专题扩展名
	bit_isLock = 0
	dtm_Addtime = now
	lng_GroupID = ""
	int_sPoint = ""
Elseif Request.QueryString("Action")="edit" then
	lng_SpecialID = NoSqlHack(Trim(Request.QueryString("SpecialID")))
	if not Get_SubPop_TF(lng_SpecialID,"NS027","NS","specail") then  Err_Show
	if lng_SpecialID="" or not isnumeric(lng_SpecialID) then 
			strShowErr = "<li>必要的ID必须提供，并且是数字。</li>"
			Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end
	end if
	Set obj_Special_Rs = server.CreateObject(G_FS_RS)
	obj_Special_Rs.open "select SpecialID,SpecialCName,SpecialEName,SpecialSize,SpecialContent,SavePath,Templet,ExtName,isLock,Addtime,naviPic,adminName From FS_NS_Special where SpecialID = "& lng_SpecialID ,Conn,1,3
	if  not obj_Special_Rs.eof then
		str_SpecialCName = obj_Special_Rs("SpecialCName")
		str_SpecialEName = obj_Special_Rs("SpecialEName")
		str_SpecialSize = obj_Special_Rs("SpecialSize")
		str_SpecialContent = obj_Special_Rs("SpecialContent")
		str_SavePath = obj_Special_Rs("SavePath")
		str_Templet = obj_Special_Rs("Templet")
		str_ExtName = obj_Special_Rs("ExtName")
		bit_isLock = obj_Special_Rs("isLock")
		dtm_Addtime = obj_Special_Rs("Addtime")
		str_naviPic=obj_Special_Rs("naviPic")
		lng_AdminID = obj_Special_Rs("adminName")
		obj_Special_Rs.close
		set  obj_Special_Rs = nothing
	Else
		strShowErr = "<li>错误的参数</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	End if
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>专题管理___Powered by foosun Inc.</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="js/Public.js"></script>
</head>
  <body>
<form name="MainForm" method="post" action="Special_Save.asp">
  <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
    <tr class="hback"> 
      <td class="xingmu">栏目管理</td>
    </tr>
    <tr> 
      <td height="18" class="hback"><a href="Special_Manage.asp">管理首页</a> | <a href="Special_Add.asp?Action=add">新增专题</a> 
        | <a href="../../help?Lable=NS_Special_Add" target="_blank" style="cursor:help;"><img src="../Images/_help.gif" border="0"></a></td>
    </tr>
  </table>
  <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
    <tr class="hback"> 
      <td colspan="3" class="xingmu"><%if request.QueryString("Action")="edit" then response.Write("修改专题") else response.Write("添加专题") end if%></td>
    </tr>
    <tr> 
      <td width="18%" class="hback"><div align="right">专题中文名称：</div></td>
      <td width="82%" colspan="2" class="hback"><input name="SpecialCName" type="text" id="SpecialCName" size="35" maxlength="100" value="<% = str_SpecialCName%>"> 
        <span class="tx"> *3-100个字符</span></td>
    </tr>
    <tr> 
      <td width="18%" class="hback"><div align="right">专题英文名称：</div></td>
      <td width="82%" class="hback"><input name="SpecialEName" type="text" id="SpecialEName" size="35" maxlength="50" value="<% =str_SpecialEName%>" <%if Request.QueryString("Action")="edit" then response.Write("Readonly")%> onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))">   
        <span class="tx"> *<br>
        3-50个字符,必须是字母，数字，中划线，下划线,@,.，一旦确认,将不能修改</span></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">专题高度和宽度：</div></td>
      <td class="hback"><input name="SpecialSize" type="text" id="SpecialSize" size="35" maxlength="150" value="<% = str_SpecialSize %>" onKeyUp="value=value.replace(/[^0-9,0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9,0-9]/g,''))">
        <span class="tx">*</span>格式：高度,宽度（150,120）</td>
    </tr>
    <tr>
      <td class="hback"><div align="right">专题图片</div></td>
      <td class="hback"><input name="naviPic" type="text" id="naviPic" value="<% = str_naviPic %>" size="35"  maxlength="255">
        <img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.MainForm.naviPic);" style="cursor:hand;"> </td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">专题导航说明：</div></td>
      <td class="hback"><textarea name="SpecialContent" style="width:80%" rows="6" id="SpecialContent"><% = str_SpecialContent %></textarea>      </td>
    </tr>
    <tr>
      <td class="hback"><div align="right">管理员：</div></td>
      <td class="hback"><SELECT name="AdminName" id="AdminName">
        <%
			Dim obj_AdminList_Rs
			set obj_AdminList_Rs = Conn.Execute("Select Admin_Name,Admin_Real_Name from FS_MF_Admin Where Admin_Parent_Admin='"&Session("Admin_Name")&"' or Admin_Name='"&Session("Admin_Name")&"' order by ID asc")
			If not obj_AdminList_Rs.eof Then
				if lng_AdminID = obj_AdminList_Rs("Admin_Name") then
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """ selected>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				Else
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				End if
				obj_AdminList_Rs.MoveNext
			End If
			Do while not obj_AdminList_Rs.eof
				if lng_AdminID = obj_AdminList_Rs("Admin_Name") then
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """ selected>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				Else
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				End if
				obj_AdminList_Rs.Movenext
			Loop
			obj_AdminList_Rs.Close
			Set obj_AdminList_Rs = Nothing
			%>
      </SELECT></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">专题保存路径：</div></td>
      <td class="hback"><input name="SavePath" type="text" id="SavePath"  value="<%=str_SavePath%>" readonly>
        <INPUT type="button"  name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%=sRootDir & str_newsDir%>',300,250,window,document.MainForm.SavePath);document.MainForm.SavePath.focus();"> 
        <span class="tx"> *</span></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">专题模板地址：</div></td>
      <td class="hback"><input name="Templet" type="text" id="Templet" value="<% = str_Templet %>" size="50" maxlength="250" readonly> 
        <input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../Commpages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.MainForm.Templet);document.MainForm.Templet.focus();"> 
        <span class="tx"> *250个字符</span></td>
    </tr>
    <tr> 
      <td class="hback"><div align="right">专题扩展名：</div></td>
      <td class="hback">
	    <select name="ExtName" id="ExtName">
          <option value="html" <% if  Trim(str_ExtName) = "html"  then response.Write("selected")%>>.html</option>
          <option value="htm" <% if  Trim(str_ExtName) = "htm"  then response.Write("selected")%>>.htm</option>
          <option value="shtml" <% if  Trim(str_ExtName) = "shtml"  then response.Write("selected")%>>.shtml</option>
          <option value="shtm" <% if  Trim(str_ExtName)= "shtm"  then response.Write("selected")%>>.shtm</option>
          <option value="asp" <% if  Trim(str_ExtName) = "asp"  then response.Write("selected")%>>.asp</option>
        </select> <span class="tx"> *如果需要阅读权限，必须设置为.asp</span></td>
    </tr>
    <tr> 
      <td height="22" class="hback"><div align="right">是否锁定：</div></td>
      <td height="22" class="hback"><input name="isLock" type="checkbox" id="isLock" value="1" <% if bit_isLock = 1 then response.Write("checked") %>></td>
    </tr>
    <tr> 
      <td width="18%" height="21" class="hback"><div align="right">添加日期：</div></td>
      <td width="82%" height="21" class="hback"><input  name="Addtime" type="text" id="Addtime" value="<% = dtm_Addtime %>" readonly>
      <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.Addtime);" ></td>
    </tr>
    <tr id="InUrl6" style="display:none"> 
      <td class="hback"><div align="right">浏览会员组：</div></td>
      <td class="hback"> <input name="BrowPop"  id="BrowPop" type="text" value="<% = lng_GroupID %>" onMouseOver="this.title=this.value;" readonly> 
        <select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
          <option value="" selected>选择会员组</option>
          <option value="del" style="color:red;">清空</option>
          <% = MF_GetUserGroupID %>
        </select>
        需要点数 
        <input name="sPoint" type="text" id="sPoint" size="8" maxlength="5" value="<% = int_sPoint %>"  onChange="ChooseExeName();"  onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
       <span class="tx"> 大于0</span> </td>
    </tr>
      <td height="21" class="hback"></td>
      <td height="21" class="hback"><input type="button" name="Submit4222" value="保存专题" onClick="{if(confirm('确认保存您的专题信息吗?')){this.document.MainForm.submit();return true;}return false;}"> 
        <input type="reset" name="Submit5222" value="重置">
		<input name="SpecialID" type="hidden" id="SpecialID" value="<% = Request.QueryString("SpecialID")%>">
        <input name="Action" type="hidden" id="Action" value="<% = Request.QueryString("Action")%>"></td>
    </tr>
</table>
</form>
</body>
</html>
<%
set Fs_news = nothing
%>
<SCRIPT language="JavaScript">
var DocumentReadyTF=false;
function document.onreadystatechange()
{
	ChooseExeName();
}
function ChooseExeName()
{
  var ObjValue = document.MainForm.selectPop.options[document.MainForm.selectPop.selectedIndex].value;
  if (ObjValue!='')
  {
	if (document.MainForm.BrowPop.value=='')
		document.MainForm.BrowPop.value = ObjValue;
	else if(document.MainForm.BrowPop.value.indexOf(ObjValue)==-1)
		document.MainForm.BrowPop.value = document.MainForm.BrowPop.value+","+ObjValue;
	if (ObjValue=='del')
  		document.MainForm.BrowPop.value ='';
  }
  CheckNumber(document.MainForm.sPoint,"浏览扣点值");
  if (document.MainForm.sPoint.value>32767||document.MainForm.sPoint.value<-32768)  //||document.MainForm.sPoint.value=='0'
	{
		alert('浏览扣点值超过允许范围！n最大32767，且不能为0');
		document.MainForm.sPoint.value='';
		document.MainForm.sPoint.focus();
	}
   if (document.MainForm.BrowPop.value!='' || (document.MainForm.sPoint.value!='0' && document.MainForm.sPoint.value!='') ){document.MainForm.ExtName.options[4].selected=true;document.MainForm.ExtName.readonly=true;}
  else {document.MainForm.ExtName.readonly=false;}
}
function CheckExtName(Obj)
{
	if (Obj.value!='')
	{
		for (var i=0;i<document.all.ExtName.length;i++)
		{
			if (document.all.ExtName.options(i).value=='asp') document.all.ExtName.options(i).selected=true;
		}
		document.all.ExtName.readonly=true;
	}
	else
	{
		document.all.ExtName.readonly=false;
	}
}
</SCRIPT>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. --> 

						