📄 function.asp
字号:
<%
Function executeQuery(sql)
Set executeQuery = Server.CreateObject("ADODB.Recordset")
executeQuery.ActiveConnection = MM_conn_STRING
executeQuery.Source = sql
executeQuery.CursorType = 0
executeQuery.CursorLocation = 2
executeQuery.LockType = 1
executeQuery.Open()
End Function
Function executeUpdate(sql)
Dim conn
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_conn_STRING
conn.Execute sql
End Function
Function executeDelete(sql)
Dim conn
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_conn_STRING
conn.Execute sql
End Function
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
makefilename=fname
end function
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
Function checkUser(userright)
If Session("userright")<>userright AND Session("userright")<>"admin" Then
showMsg("对不起，您还没有登录，或没有足够的权限，无法进行此操作。")
'Response.Redirect("error.asp")
End If
End Function
Function logout()
Session.Contents.Remove("userright")
Session.Contents.Remove("cardno")
Session.Contents.Remove("username")
Response.Redirect("login.asp")
End Function
Function showFoot()
%>
<p align="center"> <span class="mediumtxt">< <a href="mailto:<%= designeremail %>" class="mediumtxt">联系我们</a>
- <a href="<%= weburl %>" class="mediumtxt" target="_blank"><%= webname %></a> ></span> <br>
<br>
<br>
<span style="color: #000000; font-size: 11px; font-family: Tahoma, Arial"><%= copyright %></span> </p>
<%
End Function
Function showMsg(msg)
If msg="" Then msg="对不起，您还没有登录，或没有足够的权限，无法进行此操作。"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书管理系统</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<table bgcolor="#FFFFFF" width="97%" cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td><br> <table cellspacing="0" cellpadding="0" border="0" width="97%" align="center" style="table-layout: fixed">
<tr>
<td class="nav" width="90%" nowrap> <a href="index.asp"><%= systemname %></a> » 提示信息</td>
<td align="right" width="10%"> </td>
</tr>
</table>
<br> <div align="center" onClick="MM_validateForm('cardno','','R','passwd','','R');return document.MM_returnValue">
</div>
<table cellspacing="0" cellpadding="0" border="0" width="500" align="center">
<tr>
<td bgcolor="#000000"> <table border="0" cellspacing="1" cellpadding="4" width="100%">
<tr class="header">
<td><%= systemname %> 提示信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"> <table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="smalltxt"> <br> <%= msg %><br> <br> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table> <p> </p><p align="center">
<input type=submit name=submit value="点击这里返回上一页 " onClick="javascript:history.go(-1);">
</p><p> </p><p> </p></td>
</tr>
</table>
<p> </p>
<p align="center"> </p>
<p>
<% showFoot() %>
</p>
</body>
</html>
<%
Response.End()
End Function
Function freshTo(msg,url)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书管理系统</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="refresh" content="3;URL=<%= url %>">
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<table bgcolor="#FFFFFF" width="97%" cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td><br> <table cellspacing="0" cellpadding="0" border="0" width="97%" align="center" style="table-layout: fixed">
<tr>
<td class="nav" width="90%" nowrap> <a href="index.asp"><%= systemname %></a> » 提示信息</td>
<td align="right" width="10%"> </td>
</tr>
</table> <br> <div align="center" onClick="MM_validateForm('cardno','','R','passwd','','R');return document.MM_returnValue">
</div> <table cellspacing="0" cellpadding="0" border="0" width="500" align="center">
<tr>
<td bgcolor="#000000"> <table border="0" cellspacing="1" cellpadding="4" width="100%">
<tr class="header">
<td><%= systemname %> 提示信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"> <table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="smalltxt"> <br> <%= msg %><br> <br>
程序将带你到相关页面，如果你不想等待，请点击<strong><a href="<%= url %>">这里</a></strong>。<br>
<br>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table> <p> </p><p align="center">
<input type=submit name=submit value="点击这里返回上一页 " onClick="javascript:history.go(-1);">
</p><p> </p><p> </p></td>
</tr>
</table>
<p> </p>
<p align="center"> </p>
<p>
<% showFoot() %>
</p>
</body>
</html>
<%
Response.End()
End Function
Function addLog(userright,username,action)
Dim conn,sql
set conn=Server.CreateObject("ADODB.CONNECTION")
conn.Open MM_conn_STRING
'use default
If userright="" Then userright = Session("userright")
If username="" Then
If userright = "admin" Then
username = Session("username")
Else
username = Session("username") & "(" & Session("cardno") & ")"
End If
End If
sql = "INSERT INTO log (userright,username,[action],[date],ip) VALUES ("
sql = sql & " '" & Replace(userright, "'", "''") & "'"
sql = sql & ",'" & Replace(username, "'", "''") & "'"
sql = sql & ",'" & Replace(action, "'", "''") & "'"
sql = sql & ",'" & now()&"'"
sql = sql & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'"
sql = sql & ")"
conn.Execute sql
conn.Close
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -