怎么样用ASP 编程
第一，程序放在哪的文件夹下都可以，但是要注意的是文件的名字要用英文，后缀名必须是.asp。第二，安装好IIS后，要将你的网站进行发布，也就是将你存放网站文件的文件夹进行发布。具体发布方法进入IIS在左册列表处依次打开-》internet服务-》本地计算机-》网站-》默认网站，在默认网站上单点鼠标右键，选择新建-》虚拟目录，在弹出对话框内，别名处填写网站的名字，要用英文。下一步，在目录处选择好你存放网站的目录一路下一步就发布完毕了。你这时会发现在左册列表处会多出你刚才填写的网站名称，右键点击选属性，进入文档选项卡，添加index.asp，以后你网站的主页就是index.asp你的访问地址就是到这里你的IIS就算发布成功了。
it编程自学网
摘要亲，校外要想学习编程，以下的网站可以参考，oeasy学软件——oeasy系列互联网软件&编程相关教程。
萌码网——互动式编程学习平台，首创编程时光机。
计蒜客——国内版Codecademy，交互式学习计算机编程
学云网——java教程、.net教程、安卓教程等视频教程。
代码宝贝——宅男福利编程学习网站。
咨询记录 · 回答于2021-08-28
it编程自学网
亲，校外要想学习编程，以下的网站可以参考，oeasy学软件——oeasy系列互联网软件&编程相关教程。
萌码网——互动式编程学习平台，首创编程时光机。
计蒜客——国内版Codecademy，交互式学习计算机编程
学云网——java教程、.net教程、安卓教程等视频教程。
代码宝贝——宅男福利编程学习网站。
都有从基础开始的教程
除了专业课之外别的例如说语文数学英语什么的需要学习哪方面的知识？
这个数学，英语方面需要一定的基础，有基础会好一点
那英语是学那一方面的呢
基础的单词，语法就可以
告诉我一些简单的vb编程代码
给几个写的模块给你看看Public Function LoadData(strSQL As String) Dim rst As DAO.Recordset Dim ctl As Control Dim fld As Object Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly) If Not rst.EOF Then For Each ctl In ctlFormName If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then For Each fld In rst.Fields If fld.Name = ctl.Name Then ctl = rst(fld.Name) Exit For End If Next End If Next End If rst.Close Set rst = NothingEnd FunctionPublic Function AddData(TableName As String) Dim rst As DAO.Recordset Dim ctl As Control Dim fld As Object Set rst = CurrentDb.OpenRecordset(TableName, , dbReadOnly) For Each ctl In ctlFormName If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then For Each fld In rst.Fields If fld.Name = ctl.Name Then ctl = fld.DefaultValue Exit For End If Next End If Next rst.Close Set rst = NothingEnd FunctionPublic Function SaveData(strSQL As String)’ On Error GoTo Err_SaveData Dim rst As DAO.Recordset Dim ctl As Control Dim fld As Object If MsgBox(“您确认要保存吗?“, vbOKCancel + vbInformation, “提示!!!“) = vbOK Then If AddTag = True Then Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly) rst.AddNew Else Set rst = CurrentDb.OpenRecordset(strSQL) rst.Edit End If For Each ctl In ctlFormName ’Debug.Print ctl.Name If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then For Each fld In rst.Fields ’Debug.Print fld.Name If fld.Name = ctl.Name Then rst(fld.Name) = ctl Exit For End If Next End If Next rst.Update rst.Close Set rst = Nothing MsgBox “数据保存成功!“, vbInformation, “提示!!!“ End IfExit_SaveData: Set rst = Nothing Exit FunctionErr_SaveData: If Err = 3022 Then MsgBox “同一节点下不能存在相同的子节点，请修改后再点保存！“, vbCritical, “警告!!!“ Else MsgBox Err.Source & “ #“ & Err & vbCrLf & vbCrLf & Err.Description, vbCritical On Error Resume Next End If Resume Exit_SaveDataEnd FunctionPublic Function DelSource(Form As Form) Dim ctl As Control Form.RecordSource = ““ For Each ctl In Form If Not (TypeOf ctl Is Label) Then ctl.ControlSource = ““ End If NextEnd FunctionPublic Function DelData(strSQL As String) Dim rst As New ADODB.Recordset Dim i As Long If MsgBox(“你确定要删除当前记录吗？“, vbOKCancel + vbQuestion, “删除!!!“) = vbOK Then’ Debug.Print strSQL rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If rst.RecordCount 》 0 Then For i = 1 To rst.RecordCount rst.Delete rst.Update rst.MoveNext Next End If rst.Close Set rst = Nothing End IfEnd Function
