A. asp網頁中把access資料庫中的信息填寫到word模板中去
以下是vb操作word的例子 ,至於access可以用ado,,odbc去訪問
Set wordapp = CreateObject("Word.Application") '創建word對象
Call wordapp.documents.Add("c:\mytmp.dot") '按查處創建文檔
Set worddoc = wordapp.activedocument '獲取活動文檔句柄
wordapp.Visible = False
'打開資料庫,數據表代碼略,假設 rs為記錄集
wordapp.activedocument.bookmarks("標簽1").Select '定位插入點到「標簽1」位置
wordapp.wordbasic.Insert (rs("欄位名落")) '寫入數據
worddoc.Saveas "c:\a.doc" '保存文檔
worddoc.Close '關閉文檔
Set worddoc = Nothing
wordapp.quit '關閉word
Set wordapp = Nothing
B. ASP網頁模板和資料庫搭建問題 急!!!!
先由設計師設計網頁,在設計圖上標注相關信息(比如說顏色,有些顏色肉眼分辨不太清楚。)
再接下來是前台製作,由網頁製作人員完成,這里要注意以下幾點:
1、拿到設計稿後不要直接切割,然後到DW里直接敲代碼,首先要認真研究,把握大致的框架圖,做到心裡有一個整體的構思,其中還可以揣摩一些設計的風格,有興趣的朋友完全可以讓自己走上設計的道路。(設計人員比製作人員工資高多了呀!無奈!)
2、用PS或者FW等繪圖軟體做一些實體的框架圖,這個框架的目的是讓你在製作的過程中能夠快速而准確的進行製作和在以後的修改工作中能夠高效,所以框架圖要具體的標示出塊狀的id號或者類名,父與子的層次關系等。
3、接下來就是進行重要的一項----製作,也就是敲那該死的代碼,在製作過程時,就要體現你對技術的熟練程度和技巧運用了,比如css的架構搭建,類名的選擇和用CSS的簡寫達到高效的目的等技巧。
4、製作完成後,就是自己的檢驗了,爭取做到製作出的網頁同設計師給出的設計稿如出一轍。最後讓自己的工作得到他們的肯定,當然改是難免的,不要急躁。(有些設計師太麻煩,總覺得你做出來的東西和他們的設計稿不符合!這時候你可以無視他們,直接找設計組的組長評理!還有一點就是向為網頁製作人員應該和設計師搞好關系,不然工作中會遇到很多麻煩!汗一記!)
製作完成後就是程序員的工作了,製作後台程序,以方便管理網站!如果你在設計的時候用的id,name等都是亂起名字的,這時候可能需要你和程序員進行溝通,告訴他們這個id是什麼,這個name是什麼,麻煩!所以良好的命名習慣是必不可少的!
後台的頁面設計沒有什麼講究,越簡單越好,當然簡單不等於簡陋。
這就是一個網站製作的流程!(當然,在設計之前要聽取客戶的意見,整個網站在表現什麼風格,比如說:體現嚴謹,高科技,時尚等元素,這樣設計師可以通過顏色表現這種風格!在設計稿定稿前要給客戶過目,客戶認可了才能進行製作!)
附:
CSS的命名規則
頭:header
內容:content/containe
尾:footer
導航:nav
側欄:sidebar
欄目:column
頁面外圍控制整體布局寬度:wrapper
左右中:left right center
登錄條:loginbar
標志:logo
廣告:banner
頁面主體:main
熱點:hot
新聞:news
下載:download
子導航:subnav
菜單:menu
子菜單:submenu
搜索:search
友情鏈接:friendlink
頁腳:footer
版權:right
滾動:scroll
內容:content
標簽頁:tab
文章列表:list
提示信息:msg
小技巧:tips
欄目標題:title
加入:joinus
指南:guild
服務:service
注冊:regsiter
狀態:status
投票:vote
合作夥伴:partner
XHTML文件中id的命名
(1)頁面結構
容器: container
頁頭:header
內容:content/container
頁面主體:main
頁尾:footer
導航:nav
側欄:sidebar
欄目:column
頁面外圍控制整體布局寬度:wrapper
左右中:left right center
(2)導航
導航:nav
主導航:mainbav
子導航:subnav
頂導航:topnav
邊導航:sidebar
左導航:leftsidebar
右導航:rightsidebar
菜單:menu
子菜單:submenu
標題: title
摘要: summary
(3)功能
標志:logo
廣告:banner
登陸:login
登錄條:loginbar
注冊:regsiter
搜索:search
功能區:shop
標題:title
加入:joinus
狀態:status
按鈕:btn
滾動:scroll
標簽頁:tab
文章列表:list
提示信息:msg
當前的: current
小技巧:tips
圖標: icon
注釋:note
指南:guild
服務:service
熱點:hot
新聞:news
下載:download
投票:vote
合作夥伴:partner
友情鏈接:link
版權:right
個人整理,希望對你有點用!
C. 下載了個asp.net的模板,mssql2005的,怎麼使用呢
首先要看你的asp.net模板是在.net Framework那個版本上運行的,如果是2.0的,可以再windowsxp、windows2000和windows2003上運行,XP系統的話,需要自己去下載一個名為IIS的系統組件並且安裝,現在裝機的XP系統使用的.net Framework一般是1.1版本的,需要手動升級到2.0版本,去下載一個安裝上即可,至於IIS怎麼配置,網路一下又很多詳細答案。
至於資料庫的話,首先需要去下載mssql2005安裝,無論你使用的是什麼系統,都需要安裝,然後如何配置sql2005同樣也可以網路。
通常情況下,模板要連接sql的話,會提供sql的腳本文件,sql腳本文件一般使用.sql結尾,在你的sql server中執行sql腳本,創建模板需要的資料庫和表,最後就是看看你的模板中有沒有一個名為web.config的文件,用記事本打開,找到sql server用戶名和密碼以及資料庫配置的地方,然後將你配置好的資料庫用戶名、密碼和資料庫名稱填到相應的位置,嘗試打開網頁。
(PS:最後在web.config文件中配置的這個我只是猜測,模板不一定是這樣做的,或許你需要寫到代碼中去也是有可能的,沒看到你的模板,不知道具體是怎麼配置)
D. 請問asp模板,帶後台的,是 Access資料庫,怎麼在本地測試呀
搭建IIS,在iis中測試,要不你使用ASP專業調試工具.exe,到網上下載。
E. 創建一個資料庫,用ASP怎麼寫
ASP內用SQL語句創建一個帶密碼的ACCESS資料庫
純編碼實現Access資料庫的建立或壓縮
<br> <%
<br> '#######以下是一個類文件,下面的註解是調用類的方法################################################
<br> '# 注意:如果系統不支持建立Scripting.FileSystemObject對象,那麼資料庫壓縮功能將無法使用
<br> '# Access 資料庫類
<br> '# CreateDbFile 建立一個Access 資料庫文件
<br> '# CompactDatabase 壓縮一個Access 資料庫文件
<br> '# 建立對象方法:
<br> '# Set a = New DatabaseTools
<br> '# by (蕭寒雪) s.f.
<br> '#########################################################################################
<br>
<br> Class DatabaseTools
<br>
<br> Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
<br> '建立資料庫文件
<br> 'If DbVer is 0 Then Create Access97 dbFile
<br> 'If DbVer is 1 Then Create Access2000 dbFile
<br> On error resume Next
<br> If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
<br> If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
<br> If DbExists(SavePath & dbFileName) Then
<br> Response.Write ("對不起,該資料庫已經存在!")
<br> CreateDBfile = False
<br> Else
<br> Dim Ca
<br> Set Ca = Server.CreateObject("ADOX.Catalog")
<br> If Err.number<>0 Then
<br> Response.Write ("無法建立,請檢查錯誤信息
<br> " & Err.number & "
<br> " & Err.Description)
<br> Err.Clear
<br> Exit function
<br> End If
<br> If DbVer=0 Then
<br> call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
<br> Else
<br> call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
<br> End If
<br> Set Ca = Nothing
<br> CreateDBfile = True
<br> End If
<br> End function
<br>
<br> Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
<br> '壓縮資料庫文件
<br> '0 為access 97
<br> '1 為access 2000
<br> On Error resume next
<br> If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"
<br> If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
<br> If DbExists(SavePath & dbFileName) Then
<br> Response.Write ("對不起,該資料庫已經存在!")
<br> CompactDatabase = False
<br> Else
<br> Dim Cd
<br> Set Cd =Server.CreateObject("JRO.JetEngine")
<br> If Err.number<>0 Then
<br> Response.Write ("無法壓縮,請檢查錯誤信息
<br> " & Err.number & "
<br> " & Err.Description)
<br> Err.Clear
<br> Exit function
<br> End If
<br> If DbVer=0 Then
<br> call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
<br> Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
<br> Else
<br> call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
<br> SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
<br> SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
<br> End If
<br> '刪除舊的資料庫文件
<br> call DeleteFile(SavePath & dbFileName)
<br> '將壓縮後的資料庫文件還原
<br> call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
<br> Set Cd = False
<br> CompactDatabase = True
<br> End If
<br> end function
<br>
<br> Public function DbExists(byVal dbPath)
<br> '查找資料庫文件是否存在
<br> On Error resume Next
<br> Dim c
<br> Set c = Server.CreateObject("ADODB.Connection")
<br> c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
<br> If Err.number<>0 Then
<br> Err.Clear
<br> DbExists = false
<br> else
<br> DbExists = True
<br> End If
<br> set c = nothing
<br> End function
<br>
<br> Public function AppPath()
<br> '取當前真實路徑
<br> AppPath = Server.MapPath("./")
<br> End function
<br>
<br> Public function AppName()
<br> '取當前程序名稱
<br> AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
<br> End Function
<br>
<br> Public function DeleteFile(filespec)
<br> '刪除一個文件
<br> Dim fso
<br> Set fso = CreateObject("Scripting.FileSystemObject")
<br> If Err.number<>0 Then
<br> Response.Write("刪除文件發生錯誤!請查看錯誤信息
<br> " & Err.number & "
<br> " & Err.Description)
<br> Err.Clear
<br> DeleteFile = False
<br> End If
<br> call fso.DeleteFile(filespec)
<br> Set fso = Nothing
<br> DeleteFile = True
<br> End function
<br>
<br> Public function RenameFile(filespec1,filespec2)
<br> '修改一個文件
<br> Dim fso
<br> Set fso = CreateObject("Scripting.FileSystemObject")
<br> If Err.number<>0 Then
<br> Response.Write("修改文件名時發生錯誤!請查看錯誤信息
<br> " & Err.number & "
<br> " & Err.Description)
<br> Err.Clear
<br> RenameFile = False
<br> End If
<br> call fso.CopyFile(filespec1,filespec2,True)
<br> call fso.DeleteFile(filespec1)
<br> Set fso = Nothing
<br> RenameFile = True
<br> End function
<br>
<br> End Class
<br> %>
<br>
<br> 現在已可以壓縮有密碼的資料庫,代碼如下,但是壓縮之後的資料庫密碼就沒有了!如何解決?
<br>
<br> <%
<br> Const JET_3X = 4
<br>
<br> Function CompactDB(dbPath, boolIs97)
<br> Dim fso, Engine, strDBPath
<br> strDBPath = left(dbPath,instrrev(DBPath,"\"))
<br> Set fso = CreateObject("Scripting.FileSystemObject")
<br>
<br> If fso.FileExists(dbPath) Then
<br> Set Engine = CreateObject("JRO.JetEngine")
<br>
<br> If boolIs97 = "True" Then
<br> Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
<br> "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & strDBPath & "temp.mdb;" _
<br> & "Jet OLEDB:Engine Type=" & JET_3X
<br> Else
<br> Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & dbpath, _
<br> "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
<br> End If
<br>
<br> fso.CopyFile strDBPath & "temp.mdb",dbpath
<br> fso.DeleteFile(strDBPath & "temp.mdb")
<br> Set fso = nothing
<br> Set Engine = nothing
<br>
<br> CompactDB = "你的資料庫, " & dbpath & ", 已經壓縮成功!" & vbCrLf
<br>
<br> Else
<br> CompactDB = "資料庫名稱或路徑不正確. 請重試!" & vbCrLf
<br> End If
<br>
<br> End Function
<br> %>
F. 怎麼在asp一個頁面完成資料庫的初始化
01
新建網站雙擊桌面上的vs圖標,打開軟體。點擊菜單欄中的【文件】---【新建】---在彈出的【新建網站】中,選擇【.NET Framewordk 4】最高版本,【模板】選擇【Visual C#】,【ASP.NET空網站】,然後點擊【確定】按鈕即可。
End
G. asp模板做的網頁和資料庫的問題
是啊,心急吃不了熱豆腐,慢慢學吧,最起碼要先了解和掌握最基本的東西.
你下載的源碼文件不全,conn.asp一般是資料庫連接文件. 要改asp網站,ACCESS還是裝上的好,不然修改起來很不方便的,呵呵!
H. 伺服器上如何設置才能使用ASP代碼模板 總是出現資料庫連接錯誤。 還要設置SQL嗎
看一下ASP模板里的代碼。連接的資料庫地址,埠,庫名和你的資料庫是否一致
I. ASP.NET Datalist 模板下<asp:checkbox> (資料庫取值為1)附上選中狀態
下面方法稍微笨點, 肯定可行, 不知有沒有簡潔的辦法:
假設你的資料庫表中有一個用戶許可權表,設計如下
username(用戶名) permissionname(許可權名) value(1/0表示是否有該許可權)
wnaggang add 0
wanggang view 1
wanggang delete 0
Liqiang add 0
Liqiang view 1
Liqiang delete 0
//當綁定DataList1中的每一項時的處理方法
protected void DataList1_ItemDataBound(objectsender,DataListItemEventArgse)
{
string username = Request.QueryString("Username");
DataTable UserPermissionDT = GetUserPermission(username);
foreach(DataRow row in UserPermissionDT.Rows)
{
string permissionname = row["permissionname"].ToString();
for(int i=0; i<DataList1.Items[i].Count;i++)
{
//遍歷每個CheckBox, 注意CheckBox的命名要遵循 CheckBox0, CheckBox1 ....,
//每個CheckBox的文本內容要保持和資料庫中許可權名一致, 也可以自己進行一致性映射
Checkbox cb = DataList1.Items[i].FindControl("CheckBox" + i.ToString) as CheckBox;
if(checkbox != null)
{
if(cb.Text==permissionname)
cb.Checked = (bool)(int.parse(row["Value"].ToString()));
}
}
}
}
///<summary>
///獲取當前用戶許可權列表
///</summary>
///<paramname="usename">用戶名</param>
///<returns></returns>
private DataTable GetUserPermission(string username)
{
//設置資料庫連接串, 可以從自己網站的DataSource讀取
SqlConnectionconnection=newSqlConnection("DataSource=(local);InitialCatalog=AspNetStudy;PersistSecurityInfo=True;UserID=sa;Password=sa");
SqlCommandcommand=newSqlCommand("select username, permissionname, [value] from username where user name = @User");
command.Parameters.AddWithValue("@User",username);//添加SqlParameter參數
SqlDataAdapter adapter=newSqlDataAdapter(command);
DataTable data=newDataTable();
adapter.Fill(data);
return data;
}