原本是用的office的数据库
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Db,Rs,SqlData,conn,HomePageNO,page,totalrec,rc,totalpage,filename,action,action_e
'设置数据库路径
db=Server.MapPath("data/gfdgfdgfdg.mdb")
action = reStr(Request.QueryString("action"))
action_e = reStr(Request.Form("action_e"))
HomePageNO=15 '每页显示的论文题目数
filename=Request.ServerVariables("PATH_TRANSLATED")
filename=right(filename,(len(filename)-instrRev(filename,"\")))
'禁止从站点外部提交表单
if action_e <>"" then
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
call msg_List("非法操作","禁止从站点外部提交数据！",filename)
end if
end if
Select Case action_e '**************************action_e**********************************
case ""
case "setting"
Call setting()
case "add_topic"
Call add_topic()
case "post_edit_topic"
Call post_edit_topic()
case "post_edit_select"
Call post_edit_select()
case "post_notice"
Call post_notice()
case "select_topic"
Call select_topic()
case "edit_topic"
call edit_topic()
case "edit_select"
call edit_select()
case "chk_login"
Call chk_login()
End Select
Select Case action '**************************action**************************************
case ""
case "topic_list"
call topic_list()
case "set_web"
call set_web()
case "topic_pass"
call topic_pass()
case "user_login"
call user_login()
case "topageno"
call to_pageno()
case "topic_inf"
call topic_inf()
case "tch_inf"
call tch_inf()
case "tch_addtopic"
call tch_addtopic()
case "add_notice"
call add_notice()
case "del_select"
call del_select()
case "user_exit"
call user_exit()
End Select
'开始显示页面,先判断用户是否已经登录>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
call islogin()
call pagehead("")
call img_top()
call userindex(session("login"))
call img_foot()
call bottom()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
