今天終於受不了再寫長長的SQL語句了,寫了這一段,改改可成為SQL語句產生函數

來源:互聯網
上載者:User
函數|語句 <!--#include file="conn.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%Dim rs,sql,rsname
set rs=server.createobject("adodb.recordset")
on error resume next     
    sql="select * from your_table"
    rs.Open sql, conn
    rsname=RS( 0 ).name
for i = 1 to RS.Fields.Count - 1
    'rsname=rsname&chr(9)&RS( i ).name
    rsname=rsname&","&RS( i ).name
next
rsname=rsname&chr(13)
rs.close
set rs=nothing
conn.close
set conn=nothing
Function e(w)
Dim h
Dim my_array,my_array1
my_array=Split(w,",")
my_array1=Split(w,",")
Dim i

For i=0 To UBound(my_array)
my_array(i)=my_array(i)&"="&chr(39)&chr(34)&Chr(38)&my_array(i)&chr(38)&chr(34)&Chr(39)
Next
For i=0 To UBound(my_array)
my_array1(i)=chr(39)&chr(34)&Chr(38)&my_array1(i)&chr(38)&chr(34)&Chr(39)
Next
e="<P>"&w&"<p>"&"update:"&"<br>"&"update your_table set "& Join(my_array,",")&"where 條件"&"<p>"&"insert:"&"<br>"&"insert into your_table ("&w&")values("&Join(my_array1,",")&")"


End Function
response.write e(rsname)%>
</body>
</html>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。