<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQL数据库服务器地址
strUid = "sa" '数据库用户名
strPwd = "123456" '数据库密码
strDB = "hima" '数据库名
'On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
Conn.Open Connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div id=""DBError"">数据库服务器端连接错误，请与网站管理员联系。</div>"
Response.End & ......
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQL数据库服务器地址
strUid = "sa" '数据库用户名
strPwd = "123456" '数据库密码
strDB = "hima" '数据库名
'On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
Conn.Open Connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div id=""DBError"">数据库服务器端连接错误，请与网站管理员联系。</div>"
Response.End & ......
1.Controller类引用的View会自动的对应到Views\XXX目录中寻找。
其中Views\Shared存放共享的试图模板。
搜索顺序：
首先搜索\Views\[Controller]，如果找不到，再开始查找Views\Shared子目录。
2.
建议：视图的模板名称和Action引用的方法名称相同。
这样的话，开发人员就可以省略View Template的名称。
比如：return View("Details", dinner) 可以简化为View(dinner)。
public ActionResult Details(int id)
{
//Response.Write("<h1>Details DinnerID: " + id + "</h1>");
Dinner dinner = dinnerRepository.GetDinner(id);
return dinner != null? View(dinner) : View("NotFound");
}
3. 用HTML.BeginForm()和HTML.EndForm()来生成HTML form元素.
<form act ......
Dim xmlDoc
NewsConfigFile=server.MapPath("/test.xml")
Set xmlDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
If Not xmlDoc.load(NewsConfigFile) Then
'XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
response.Write("不存在数据")
response.End()
End If
Dim colsNum,newsLine,rndInt
set newsNode = xmlDoc.DocumentElement.childNodes
for i=0 to newsNode.length-1
if newsNode(i).firstChild.text=val then
call listErr(val&"已存在")
response.End()
end if
next
'添加新节点
Set newNode = XmlDoc.createNode(1,"list","")
xmlDoc.DocumentElement.appendChild(newNode)
Set newNode2 = XmlDoc.createNode(1,"name","")
newNode2.text=val
newNode.appendChild(newNode2)
'添加新属性
set newAttr=XmlDoc.createAttribute("time") ’修改已存在属性 newNode.getAttributeNode("time").nodeValue=now()
newAttr.text=now()
newNode.attributes.setNamedItem(newAttr)
......
在ASP中为我们提供了专门的日期加减函数。
1.日期相加
DateAdd 函数
返回已添加指定时间间隔的日期。
DateAdd(interval, number, date)
DateAdd 函数的语法有以下参数
（1）interval 必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
（2）number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
（3）date 必选项。Variant 或要添加 interval 的表示日期的文字。
说明
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1 ......
<%
Option Explicit
'数据库结构：
'location
'表1 loaction 所在的市 表
' 字段
' loactionid （主键）
' loactionname 名字
'表2 district 所在的县 表
' 字段
' locationid （主键）
' districtid
' districtname
'表3 village 所在的乡镇 表
' 字段
' districtid （主键）
' villageid
' villagename
%>
<html>
<head>
<title>List</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim conn
dim rs
dim sql
dim count
dim rs1
dim sql1
dim rs2
dim sql2
dim count2
dim connstr
connstr="DBQ="+server.mappath("db11.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql = "select * from district order by locationid asc"
set rs = conn.execute(sq ......
asp文件搜索
<%
'*************Set newsearch=new SearchFile '声明 *************
'*************newsearch.Folder="F:+E:"'传入搜索源*************
'*************newsearch.keyword="汇编" '关键词*************
'*************newsearch.Search '开始搜索*************
'*************Set newsearch=Nothing '结束*************
'*************************************************************
Server.ScriptTimeOut =99999 '程序加载的超时设置
Class SearchFile
dim Folders '传入绝对路径,多路径使用+号连接,不能有空格
dim keyword '传入关键词
dim objFso '定义全局变量
dim Counter '定义全局变量，搜索结果的数目
'*****************初始化**************************************
Private Sub Class_Initialize
Set objFso=Server.CreateObjec ......
最新文章 : asp